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REVISION RECORO ***************** 



♦ MODAYR VERSION WHAT DONE • WHY , AND WHO DIO IT 

* 03207* V 3.1 



* 11137* 

* 

♦ 11207* 
******** 



V 3.1-1 



V 3.1-1 



SYSTEM RELEASED « 

CHANGED SECTION ID AND STAR T-OF TAPE AND END-OF-TAPE 
ID PUNCHES TO BE VALID ON 5,7,0R8 LEVEL TAPE * 
CHANGED LEVEL IDENTIFY CODING TO FIND PROPER ' 

SECTIONS TLO « 

MODIFIED PARITY CHECK ROUTINE FOR GRACEFULNESS TLO< 



******.*+ »»+*«*** «**v********** ************************ ********** 

* ERROR COOESIHEXIOECIMAL) 

* 1- EXTERNAL REJECT ON STATUS REQUEST 

* 2- INTERNAL REJECT ON STATUS REQUEST 

* 3- EXTERNAL REJECT ON DATA INPUT 

* *- INTERNAL REJECT ON DATA INPUT 

* 5- INCORRECT EQUIPMENT ADDRESS-RESTART TEST 

* 6- MORE THAN ONE BIT PUNCHED IN CONTROL FRAME 

* 7- ALL 10 LEVEL CONTROL PUNCHES NOT EQUAL 

* 8- CONTROL PUNCH DIO NOT HAVE EVEN PARITY 

* 9- NO PATTERN COULD BE FOUND FOR THIS CONTROL PUNCH 

* A- INTERRUPT BUT INTERRUPT STATUS BIT NOT SET 

» B- IMPROPER STATUS-SHOULD BE READY, BUSY, POWER ON, AND EXIST 

* C- ALARM AND/OR LOST OATA 

* 0- UNIDENTIFIED INTERRUPT 

* E- DATA READ WAS NOT OATA EXPECTED 

* F- FIRST FRAME WAS NOT ALL ONES 

» 10- INTERNAL REJECT ON START MOTION FUNCTION 

* 11- EXTERNAL REJECT ON START MOTION FUNCTION 



00001 
00002 
00003 
0000* 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
0001* 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
0002* 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 



r\ 



0036 


0001 


0037 


0002 


0038 


0003 


0039 


0004 


00*0 


0005 


00*1 


0006 


00*2 


0007 


00*3 


0008 


0** 


0009 


00*5 


0O0A 


00*6 


OOOB 


00*7 


OOOC 


0048 


000D 


00*9 


00*2 



EQU CONTROL <1) 

EQU STOPX(CONTROL+l) 

EQU TSEXITISTOPX*l) 

EQU DATINTCTSEXIT+i) 

EQU CLRINT(DATINT+1) 

EQU JUMPXCDATINT+2) 

EQU GENRAN(JUMPX*1) 

EQU TYPEOUTfGENRAN+11 

EQU TTYBZY(TYPEOUTtl) 

EQU HEXASCCTYPEOUT+2) 

EQU OVRLAYCHEXASCU) 

EQU RELPOSCOVRLAY+1) 

EQU MAINLCRELPOS+1) 

EQU SETMASKCMAINL+53) 



RETURN SMM CONTROL ADDRESS. 00036 

ALL STOPS AND ERROR TYPEOUTS 00037 

END IF TEST PASS EXIT 00038 

REQUEST INTERRUPT 00039 

FAKE CLEAR INTERRUPT ROUTINE 000*0 
CHECK SKIPSWITCH FOR PARAM ENTRY 00041 

RANDOM NUMBER GENERATOR 000*2 

MESSAGE TYPEOUT ROUTINE 000*3 

ROUTINE TO WAIT TTY NOT BUSY. 000** 

HEX TO ASCII CONVERSION 000*5 

OVERLAY CALL ROUTINE. 000*6 

A/Q RELATIVE POSITION TEST. 000*7 

MANUAL INTERRUPT ROUTINE. 000*8 

M REGISTER RESET VALUE. 000*9 
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0050 


0043 


EQU 


STJPtSETMASK+1) 


0051 


00V<» 


EQU 


LASTVALU<STJP*1> 


0052 


00V5 


EQU 


LASTA0ISTJP*2> 


0053 


00V7 


EQU 


LDLC0RE(LASTA0+2> 


Q05«i 


00V8 


EQU 


LOLICORCLOLCORE+U 


0055 


00V9 


EQU 


INFCRMCLDLiCOR+1) 


0056 


0056 


EQU 


SMMCNTUNFORM+13) 


0057 


006B 


EQU 


BIT00tSMMCNT*21) 


0058 


0068 


EQU 


BITO(BITOO) 


0059 


006C 


EQU 


BITl(BITQ+i> 


0060 


006D 


EQU 


BTT2(BIT1+1! 


0061 


006E 


EQU 


BIT3CBIT2+1I 


0062 


006F 


EQU 


BITVIBIT3+1) 


0063 


0070 


EQU 


BIT5(BITV+1) 


006V 


0071 


EQU 


BIT6CBIT5+1) 


0065 


0072 


EQU 


8IT7CBIT6+1I 


0066 


0073 


EQU 


BIT8IBIT7+1I 


0067 


007V 


EQU 


BIT9(BIT8+1) 


0068 


0075 


EQU 


BIT10(BIT9+1> 


0069 


0076 


EQU 


BITiKBITiQ*l! 


0070 


0077 


EQU 


8IT12<BIT11+1) 


0071 


0078 


EQU 


BIT13CBIT12+1) 


0072 


0079 


EQU 


BIT1VCBIT13+1) 


0073 


007A 


EQU 


BIT15<BIT1V*1> 


QQ7V 


007B 


EQU 


H0000(BIT15+1) 


0075 


007C 


EQU 


HFFFF (HO 000+1) 


0076 


007D 


EQU 


HOOOFCHFFFF+1) 


0077 


007E 


EQU 


H00F0IH000F+1) 


0078 


007F 


EQU 


HOFO0(HO0FO+i) 


0079 


0060 


EQU 


HF000CH0F00+1I 


0080 


0081 


EQU 


H00FFCHF00Q+1) 


0081 


0082 


EQU 


HFF00CH0QFF+1) 


0082 


0083 


EQU 


HFFF0IHFF00+1) 


0083 


008V 


EQU 


H0FFF(HFFF0+1> 


008V 


0085 


EQU 


HFF0F(H0FFF«-11 


0085 


0086 


EQU 


HFOFF(HFFOFU) 


0086 


0087 


EQU 


H7FFFCHF0FF+1) 


0087 


0088 


EQU 


H7F00IH7FFF*1) 


0088 


0089 


EQU 


H0780CH7FO0+1J 


0089 


008A 


EQU 


H007FCH0780+1) 


0090 


008D 


EQU 


H2020CH007F+1) 


0091 


0091 


EQU 


TSACTV1H2020+6) 


0092 


0092 


EQU 


TSFREQ(TSACTV*1) 


0093 


006Q 


EQU 


CONSTIBITOO) 


009V 


0056 


EQU 


SMMPAR(SMMCNT) 


0095 


00V3 


EQU 


SJPAR4STJP) 


0096 


0007 


EQU 


RANDOMCGENRAN) 


0097 


OOOA 


EQU 


CONVERTCHEXASC) 


0098 


0008 


EQU 


MESSAGCTYPEOUT) 


0099 


OOOA 


EQU 


CONV(HEXASC) 


0100 


0008 


EQU 


TYPECTYPEOUT* 


0101 


000V 


EQU 


TEMPCSDV) 


0102 


OOOO 


EQU 


MANUINT(MAINL) 



STOP/JU1P PARAMETER HORD. 

MONITOR AREA LWA+1 

AVAILABLE LOAD CORE FHA. 

BANKO LAST ADDR 

BANK1 LAST AOOR 

BKO SIZE* MASK SIZE, BUSY SWITCH 

SMM PARAMETER HORD. 

XXXXXXXX CONSTANT TABLE XXXXXXXX 



TABLE INDEX TO TEST IN CONTROL, 
TEST, FREQUENCY TABLE 



00050 
00051 
00052 
00053 
0005V 
00055 
00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
0006V 
00065 
00066 
00067 
00068 
00069 
00070 
00071 
00072 
00073 
0007V 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00082 
00083 
0008V 
00085 
00086 
00087 
00088 
00089 
00090 
00091 
00092 
00093 
0009V 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
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PTR004 
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0103 


0001 






EQU 


PT(i> 


0104 


POOOO 160A 




PTR004 


JMP* 


RERUN 


0105 


POOOl 5054 
P0002 5230 
P0003 303*1 






ALF 


3 t PTR004 


0106 


P00Q4 0011 


P 


PARAOR 


ADC 


CNTWRO-1 


0107 


P0005 0008 


P 


RETURN 


ADC 


INITIAL 


0108 


P0006 00A1 




EQUIP 


NUM 


SA1 


0109 


P0007 0002 




TNT1 


NUM 


$2 



DATEI 12/17/74 



FWA PARAM 



00103 
00104 
00105 



00106 
00107 
00108 
00109 



v._. 



0111 


P0008 
P0009 


5800 
36*i 


INITIAL 


RTJ INIT1 


0112 


P000A 


5802 


RERUN 


RTJ* INPARA 


0113 


POOOB 


1S0E 


STWOP 


JMP* START 



00111 



00112 
00113 



O. 



0115 
0116 

0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
01<tl 
0142 



PQOOC 0000 
POOOO C000 
P000E 0000 
P000F 5402 
P0010 1806 
0011 
POOH 0*»21 
P0012 4000 



INPARA NUH $0 
LOA 



=XPTR004 



P0013 0002 
P0Q14 000F 
P0015 0000 
P0016 C8FC 
P0017 68EF 
P0018 1CF3 



RTJ- <STOPX> 
JMP* INP1 

ORG * 
NUM $0421 
CNTWRD NUM $4000 

* CONTROL WORD 

* BITS 

* 14 RUN TEST WITH 

* 13 RUN TEST WITH 

* 12 RUN TEST WITH 



INPUT PARAMETERS 



INPUT PARAMETERS STOP 



STOP 10 
CONTROL WORD 



LEVEL PATTERNS 
LEVEL PATTERNS 
LEVEL PATTERNS 



ONLY ONE BIT MAY BE SET IN THIS GROUP 



11 =1 RUN TEST IN INTERRUPT MODE 

= RUN TEST IN CHARACTER MODE 
10 =1 DELAY BETWEEN CHARACTERS (PARAMETER DELROl-CHARACTER MOO 

-BIT 11 OF CONTROL WORO =0. 

=0 NO DELAY BETWEEN CHARACTERS. 



INT11 
DELRD 

INP1 



NUM 
NUM $F 
NUM 

LDA* 

STA* 

JMP* 



INTERRUPT LINE 1 
MAXIMUM DELAY BETWEEN FRAMES-CHARACTER MOD 



IN Til 

INT1 

(INPARA) 



00115 
00116 

00117 
00118 
00119 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00138 
00139 
00140 
00141 
00142 
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0144 


P0019 


C8E0 


START 


LDA* 


INT1 








00144 


0145 


P001A 


B06C 




EOR- 


CONST+1 






CHECK INTERRUPT LINE 


00145 


0146 


P001B 


0115 




SAN 


START l-*-i 






IS THIS REAOER ON LOW SPEED 


00146 


0147 


P001C 


C8E9 




LOA* 


EQUIP 






MAYBE NOW CHECK EQUIP AOOR 


00147 


0148 


POOIO 
POOIE 


AOOO 
FF80 




AND 


=N$FF80 








00148 


0149 


P001F 


B072 




EOR- 


CONST+7 








00149 


0150 


P0020 


010E 




SAZ 


START4-*-i 






IS THIS REAOER ON LOW SPEED 


00150 


0151 


P0021 


C8E5 


START1 


LOA* 


INT1 






NO 


00151 


0152 


P0022 


OCOF 




ENQ 


15 








00152 


0153 


P0023 


0133 


START2 


SAM 


ST ART 3-*- 1 








00153 


0154 


P0024 


ODFE 




INQ 


-1 






TRANSLATE INTERRUPT LINE BIT 


00154 


0155 


P0025 


0FC1 




ALS 


1 






IN A TO INTERRUPT LINE 


00155 


0156 


P0026 


18FC 




JMP* 


START2 






NUMBER IN Q 


00156 


0157 


P0027 


0814 


START3 


TRQ 


A 








00157 


0158 


P0028 


08<»2 




CLR 


Q 








00158 


0159 


P0029 


2060 




MUI- 


C0KST*2 








00159 


0160 


P002A 
P002B 


8000 
0102 




AOD 


= N$102 






BUILD AOORESS WHERE PROCESSOR 


00160 


0161 


P002C 


0822 




TRA 


Q 






ADDRESS MOULD BE STORED IF 


00161 


0162 


P0020 


C201 




LDA- 


l.Q 






THIS INT LINE WERE SELECTED 


00162 


0163 


P002E 


0117 




SAN 


START5-*-i 








00163 


0164 


POOZF 
P0030 


6800 
0280 


START4 


STA 


INTFLG 






YES CLEAR FLG-NO OTHER 


00164 


0165 


P0031 


E804 




LOQ* 


EQUIP 






STATION ON THIS LINE 


00165 


0166 


P0032 


C804 




LOA* 


INT1 








00166 


0167 


P0033 


5404 




RTJ- 


COATINT) 






REQUEST INTERRUPT LINE FROM SMM 


00167 


0168 


P0034 


02B1 P 


RINT 


AOC 


INPROC 








00168 


0169 


P0035 


1808 




JMP* 


CNTRLA 






CONTINUE 


00169 


0170 


P0036 


C201 


STARTS 


LOA- 


ltQ 






YES 


00170 


0171 


P0037 


0822 




TRA 


Q 








00171 


0172 


P0038 


B8FB 




EOR* 


RINT 






010 THIS TEST ALREADY SELECT 


00172 


0173 


P0039 


0103 




SAZ 


CNTRLA-*-! 






THIS LINE 


00173 


0174 


P003A 


C8F9 




LOA* 


RINT 






NO 


00174 


0175 


P003B 


OOFO 




INQ 


-2 








00175 


0176 


P003C 


6201 




STA- 


ltQ 








00176 


0177 


P003D 


C804 


CNTRLA 


LDA* 


CNTWRO 






YES LOAD CONTROL WORD 


00177 


0178 


P003E 


A076 




AND- CONSTH1 


REAO 


IN INTERRUPT MODE 


00178 


0179 


P003F 


0104 




SAZ CNTRL 


-*-i 


NO 






00179 


0180 


P0040 
P0041 


COOO 
0278 P 




LOA 


= XCHECK+i 








00180 


0181 


P0042 
P0043 


6800 
FFC1 




STA 


RETURN 








00181 


0182 


P0044 


5800 


CNTRL 


RTJ STMOTION 


CHECK FOR 


STOP MOTION IF SO START MOTION 


00162 




P0045 


01AB 
















0183 


P0046 


5800 


LCOOO 


RTJ STATUS 


REAO 


ONE 


FRAME 


00183 




P0047 


01BO 
















0184 


P0048 


0111 




SAN LC001- 


-*-i 


BLANK FRAME 


00184 


0185 


P0049 


18FC 




JMP* LCOOO 




YES 


LOOP 


BACK 


00185 


0186 


P004A 


6812 


LC001 


STA* 


LC001B 






SAVE OATA 


00186 


0187 


P0048 


C8C6 




LOA* 


CNTWRO 








00187 


0188 


P004C 


0842 




CLR 


Q 








00188 


0189 


P004O 


0FC1 




ALS 


1 








00189 
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0190 PQ0*E 0121 

0191 P00*F 1806 

0192 P0Q50 0001 

0193 P0051 0FC1 
019* P0052 0121 

0195 P0053 1802 

0196 P0Q5* 0001 

0197 P0055 C807 

0198 P0056 BA07 

0199 P0057 0108 

0200 P0058 OAOF 

0201 P0059 5800 
P005A OOFB 

0202 P005B 18EA 

0203 P005C 0000 
020* P005O OOFF 

0205 P005E 0Q7F 

0206 P005F 001F 



0208 P0060 5800 
P0061 01A3 

0209 P0062 0822 
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SAP 


1 






SKIP IF NOT 6 LEVE. TAPE 




JMP» 


LC801A 










INQ. 


1 










ALS 


1 










SAP 


1 






SKIP IF NOT 7 LEVEL TAPE 




JMP* 


LC001A 










INQ 


1 








LC001A 


LDA* 


LC001B 










EOR* 


LCTOOltQ 






GET MASK 




SAZ LC002 


-»-l 










ENA SOF 




NO 


IT 


IS NT ERROR 




RTJ ERROR 












JMP» LCOOO 










tcooia 


NUM 











LCT001 


NUH 
NUM 
NUH 


$FF 
$7F 
J1F 








LC002 


RTJ STATUS 


READ 


ONE FRAME 



*»ERR F 



LCRET TRA Q 



00190 
00191 
00192 
00193 
0019* 
00195 
00196 
00197 
00198 
00199 
00200 
00201 

00202 
00203 
0020* 
00205 
00206 



00208 
00209 



o 



0211 P0063 B06B 


LC010 


EOR- CONST 


0212 P006* 0101 




SAZ LC011-»-l 


0213 P0065 1828 




JMP» LC020 


021* P0066 081* 


LC011 


TRQ A 


0215 P0067 08*2 




CLR Q 


0216 P0068 *800 




STQ COMPATEN 


P0069 02A5 







SECTION ONE ZIGZAG PATTERN 



NO 



RESTORE CHARACTER 
FOR ZIG-ZAG PATTERN 
CLEAR COMPLEMENT PATTERN SNITCH 



00211 
00212 
00213 
021* 
00215 
00216 



0218 



LEVEL ONE 



ZIGZAG 



00218 



0220 P006A 6800 


LC012 


STA 


LCSEC 


P006B 0182 








0221 P006C 0FC8 




ALS 


8 


0222 P006D 6800 




STA 


SEER 


P006E OOFC 








0223 PQ06F C800 




LOA 


CNTWRO 


P0070 FFA1 









STORE SECTION NUMBER 



00220 

00221 
00222 

00223 
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PTR004 


0224 


P0071 


0FC1 


0225 


P0072 


0124 


0226 


P0073 


cooo 




P0074 


030F 


0227 


P0075 


E081 


0228 


P0076 


180A 


0229 


P0077 


0FC1 


0230 


P0078 


0124 


0231 


P0079 


COOO 




P007A 


0311 


0232 


P007B 


0C7F 


0233 


P0Q7C 


1804 


023% 


P007D 


COOO 




P007E 


0313 


0235 


P007F 


0C1F 


0236 


P0080 


4800 




P0081 


0288 


0237 


P0B82 


6800 




P0083 


OOFF 


0238 


P0084 


5800 




P0085 


0154 


0239 






0240 


P0086 


5800 




P0087 


OOEC 


0241 


P0068 


5800 




P0089 


0264 


0242 


P008A 


5800 




P008B 


0118 


0243 


P00BC 


18FB 



PAGE 



LC013 



LC014 



LC015 



LC016 



ALS 
SAP 
LOA 


1 

LC013-*-l 

sXZZS 


LDQ- 
JMP» 
ALS 
SAP 
LOA 


HOOFF 
LC015 
1 

LC014-»-l 
= XZZ7 


ENQ 

JMP* 

LOA 


$7F 
LC015 
= XZZ5 


ENQ 
STQ 


$1F 

PPEXL 


STA 


LEVELCT 


RTJ 


SPACEOVER 


RTJ 


RESTHD 


RTJ 


GENPATT 


RTJ 


CHECKREAO 


JHP» 


LC016 



DATE I 12/17/74 



8 LEVEL TAPE 
YES 

OOFF 



7 LEVEL TAPE 
YES 



NO MUST BE 5 LEV a TAPE 



SPACE OVER THE LEVEL NUMBER SHOULD BE 

9 MORE PUNCHES 
RESET WORDS 



CHECK AND READ 

REPEAT CYCLE NOT DONE 



00224 
00225 
00226 

00227 
00228 
00229 
00230 
00231 

00232 
00233 
00234 

00235 
00236 

00237 

00238 

00239 
00240 

00241 

00242 

00243 



r 



r 



0245 P006D 0A02 

0246 P008E 0874 

0247 P008F 0101 

0248 P0090 1806 



LC020 ENA 2 

EAQ A 
SAZ LC021-»-l 
JMP* LC040 NO 



SECTION THO COMP ZIGZAG PATTERN 



00245 
00246 
00247 
00248 
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0250 



LEVEL TWO 



COMPLEMENT ZIGZAG PATTERN 



00250 



0252 PQ091 0814 


LC021 


TRQ A 


0253 P0092 0802 




SET Q 


0254 P0093 4800 




STQ COHPATEN 


P0094 027A 






0255 P0095 1804 




JHP» LC012 



RESTORE CHARACTER 
COHP ZIG-ZAG PATTERN 
SET COMPLEMENT PATTERN SWITCH 

USEO LEVEL ONE ROUTINE 



00252 
00253 
00254 

00255 



J 



0257 P0096 0A03 


LC040 


ENA 3 


0258 P0097 0874 




EAQ A 


0259 P0098 0101 




SAZ LCQ<il-»-l 


0260 P0099 1837 




JMP* LC080 



CK FOR MATCHING SECTION 10 
SECTION THREE 



NO 



.y 



00257 
00258 
00259 
00260 



0262 



LEVEL THREE 



PYRAMIO PATTERN 



00262 



0264 P009A 0814 

0265 P009B 0842 

0266 P009C 4800 
P0090 0271 



LC041 



TRQ A 

CLR a 

STQ COMPATEN 



RESTORE CHARACTER 
CLEAR COMPLEMENT PATTERN SHITCH 



00264 
00265 
00266 



o 



0266 P009E 6800 
P009F 014E 

0269 POOAO 0FC8 

0270 PO0A1 6800 
P00A2 00C8 

0271 P00A3 C800 
P00A4 FF60 

0272 P00A5 0FC1 

0273 P00A6 0125 

0274 P00A7 COOO 
P00A8 0315 



LC042 STA LCSEC 



STORE SECTION NUMBER 



ALS 
STA 


8 
SEER 


STORE SECTIO 


LOA 


CNTHRD 




ALS 
SAP 
LOA 


1 

LC043-»-l 
= XPY8 


8 LEVEL TAPE 
YES 



00268 

00269 
00270 

00271 

00272 
00273 
00274 



o 
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0275 


P00A9 


E081 


0276 


POOAA 


6825 


0277 


POOAB 


180C 


0278 


POOAC 


08<f2 


0279 


POOAO 


4822 


0280 


POOAE 


0FC1 


0281 


POOAF 


0124 


0282 


POOBO 


COOO 




P00B1 


0317 P 


0283 


P00B2 


0C7F 


028<» 


P00B3 


1804 


0285 


poos'* 


COOO 




PO0B5 


0319 P 


0286 


P00B6 


0C1F 


0287 


P00B7 


4800 




P00B8 


0254 


0288 


P00B9 


6800 




POOBA 


00C8 


0289 


POOBB 


5800 




POOBC 


011D 


0290 






0291 


POOBO 


5800 




POOBE 


00B5 


0292 


POOBF 


5800 




POOCO 


022D 


0293 


P00C1 


E800 




P00C2 


024B 


0294 


PO0C3 


0148 


0295 


P00C4 


AOOO 




P00C5 


007F 


0296 


P00C6 


E800 




PO0C7 


0247 


0297 


P00C8 


0143 


0298 


P00C9 


E806 


0299 


POOCA 


0141 


0300 


POOCB 


8072 


0301 


POOCC 


5800 




POOCO 


0OD9 


0302 


POOCE 


18F0 



LDQ- HO OFF 
STA» LCLV8 
JMP* LC045 
LC043 CLR Q 

STQ* LCLV8 
ALS 1 

SAP LC0<»4-*-l 
LOA =XPY7 

ENQ $7F 
JMP* LC045 
LC044 LOA =XPY5 

ENQ $1F 
LC045 STQ PPEXL 

STA LEVELCT 

RTJ SPACEOVER 



RTJ RESTWD 

LC046 RTJ GENPATT 

LDQ SECTENDSH 

SQZ LC047-»-l 
AND =N$7F 

LDQ COMPATEN 

SQZ LC047-?-l 
LDQ» LCLV8 
. SQZ LC047-*-l 
AOO- CONST+7 
LC047 RTJ CHECKREAO 



SET LEVEL 8 SWITCH 

NOT LEVEL 8 SO CLEAR LEVEL 8 SWITCH 



7 LEVEL TAPE 
YES 



NO MUST BE LEVEL 5 TAPE 



JMP» LC046 



SPACE OVER THE 9 REMAINING LEVEL CONTROL 

PUNCHES 

RESET WORDS IN GENERATE PATTERN ROUTINE 

GENERATE ONE FRAME OF THE PYRAMID PATTERN 



LAST FRAME OF CYCLE 

YES CORRECT GENERATION ERROR FROM 

GENPATT ROUTINE 

COMPLEMENT PATTERN 

YES 

LEVEL 8 TAPE 

YES ADD LEVEL 8 TO PATTERN 0080 

CHECK AND READ FRAME 

REPEAT CYCLE NOT DONE 



00275 
00276 
00277 
00278 
00279 
00280 
00281 
00282 

00283 
00284 
00285 

00286 
00287 

00288 

00289 

00290 
00291 

00292 

00293 

00294 
00295 

00296 

00297 
00298 
00299 
00300 
00301 

00302 



r~ 



0304 POOCF 0000 LCLV8 



NUM 



00304 



0306 POODO 0A04 LC080 



EN A 



CK FOR MATCHING SECTION ID 



00306 



60220400 E 
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PAGE 



DATE I 12/17/7* 



0307 P00O1 0874 

0308 P00D2 0101 

0309 P00O3 1806 



EAQ 
SAZ 
JMP» LC100 



LC081-»-l 



SECTION FOUR COMP PYRAMID PATT 



NO 



00307 
00308 
00309 



0311 



LEVEL FOUR 



COMPLEMENT PYRAMIO PATTERN 



00311 



/^\ 



0313 P00O4 0814 


LC081 


TRQ A 


0314 P00D5 0802 




SET Q 


0315 PO0Q6 4800 




STQ COMPATEN 


P0007 0237 






0316 POODS 18C5 




JMP» LC042 



RESTORE CHARACTER 



SET COMPLEMENT PATTERN SWITCH 



USE THE LEVEL 3 ROUTINE TO CHECK PATTERNS 



00313 
00314 
00315 

00316 



o 
o 



0318 P00D9 0A05 

0319 P00OA 0874 

0320 P00OB 0101 

0321 P00OC 181F 



0323 



LC100 



ENA 




5 






EAQ 




A 






SAZ 




LClOl-o- 


•1 


JMP» 


LC200 









CK FOR MATCHING SCCTION ID 

SECT FIVE ALL ONES / ALL ZEROS 



NO 



LEVEL FIVE 



ALL ONES AND ALL ZEROS 



00318 
00319 
00320 
00321 



00323 



O 



0325 P00OO 0814 LC101 TRQ A 


0326 POODE 6800 


STA LCSEC 


POODF 010E 




0327 P00E0 0FC8 


ALS 8 


0328 P00E1 6800 


STA SEER 


P00E2 0088 




0329 P00E3 E800 


LOQ CNTHRD 


P00E4 FF20 




0330 P00E5 C081 


LDA- HO OFF 



RESTORE CHARACTER 



STORE SECTION NUMBER 



00325 
00326 

00327 
00328 

00329 

00330 



60220400 E 
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0ATE1 12/17/74 


0331 


P00E6 


0FA1 




QLS 


1 




0332 


P00E7 


0174 




SUM 


LC102-»-i 


8 LEVEL TAPE 


0333 


P00E6 


0F41 




ARS 


1 


NO 


0334 


P00E9 


0FA1 




QLS 


1 




0335 


P00EA 


0171 




SUM 


LC102-»-l 


7 LEVEL TAPE 


0336 


POOEB 


0F42 




ARS 


2 


NO USE 5 LEVEL TAPE 


0337 


POOEC 
POOEO 


6800 
021F 


LC102 


STA 


PPEXL 


STORE EXTRACT VALUE 


0338 


POOEE 
POOEF 


5800 
OOEA 




RTJ 


SPACEOVER 




0339 


POOFO 


OAFO 




ENA 


-2 




0340 


P00F1 
P00F2 


6800 
0230 




STA 


GEN04 




03<(1 


P00F3 


0AF5 




ENA 


-10 




0342 


PO0F4 
PO0F5 


6800 
0239 




STA 


GEN03 




0343 


PO0F6 
P00F7 


5800 
0224 


LC103 


RTJ 


GENOZ 


GENERATE ONE FRAME < 


0344 


PO0F8 
P00F9 


5800 
OOAO 




RTJ 


CHECKREAO 




0345 


POOFA 


18FB 




JMP* 


LC103 


REPEAT NO DONE WITH 



r 



00331 
00332 
00333 
00334 
00335 
00336 
00337 

00338 

00339 
00340 

00341 
00342 

00343 

00344 

00345 



r 



0347 POOFB OA06 


LC200 


ENA 6 


0348 POOFC 0874 




EAQ A 


0349 POOFO 0101 




SAZ LC201-»-l 


0350 POOFE 181F 




JMP* LC800 



CK FOR MATCHING SECTION 10 

SECTION SIX C9 f 36 PATTERN 



NO 



00347 
00348 
00349 
00350 



c 



0352 



LEVEL SIX 



C9 - 36 PATTERN 



00352 



0354 POOFF 0814 


LC201 


TRQ A 


0355 P0100 6800 




STA LCSEC 


P0101 OOEC 






0356 P0102 0FC8 




ALS 8 


0357 P0103 6800 




STA SEER 


P0104 0066 






0358 P0105 E800 




LDQ CNTNRO 


P0106 FFOB 







RESTORE CHARACTER 



STORE SECTION NUMBER 



00354 
00355 

00356 
00357 

00358 



r 
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DATEI 12/17/7* 


0359 


P0107 


C081 




LOA 


HO OFF 




0360 


P0108 


0FA1 




QLS 


1 




0361 


P0109 


017* 




SQM 


LC202-*-l 


8 LEVEL TAPE 


0362 


P010A 


0F*1 




ARS 


1 


NO 


0363 


P010B 


0FA1 




QLS 


1 




036* 


P010C 


0171 




SQM 


LC202-*-l 


7 LEVEL TAPE 


0365 


P010D 


0F*2 




ARS 


2 


NO USE 5 LEVEL TAPE 


0366 


P010E 
P010F 


6800 
01FO 


LC202 


STA 


PPEXL 


STORE EXTRACT VALUE 


0367 


POUO 
POlll 


5800 
00C8 




RTJ 


SPACEOVER 




0363 


P0112 


0AF8 




ENA 


-7 




0369 


P0113 
P011* 


6800 
022F 




STA 


GENC3 


RESTORE COUNTERS 


0370 


P0115 


0901 




INA 


1 




0371 


P0116 
P0117 


6800 
0220 




STA 


GENC* 




0372 


P0118 
P0119 


5800 
0217 


LC203 


RTJ 


GENC9 


GENERATE ONE FRAME 


0373 


POllA 
POllB 


5800 
008B 




RTJ 


CHECKREAO 


CHECK AND READ ONE F 


037* 


P011C 


18FB 




JMP* 


LC203 





00359 
00360 
00361 
00362 
00363 
0036* 
00365 
00366 

00367 

00368 
00369 

00370 
00371 

00372 

00373 

0037* 



0376 


P011D 


0A07 


0377 


P011E 


087* 


0378 


P011F 


0101 


0379 


P0120 


1831 


0380 


P0121 


*800 




P0122 


OOCB 


0381 


P0123 


5800 




P012* 


0QB5 


0382 


P0125 


5B6A 


0383 


P0126 


E800 




P0127 


FEOE 


038* 


P0128 


D806 


0385 


P0129 


COOO 




P012A 


0000 


0386 


P012B 


5*02 


0387 


P012C 


180 3 


0388 


P012O 


0*0* 


0389 


P012E 


0000 



LC800 



LC801 



ENA 
EAQ 
SAZ 
JMP* LCENO 
STQ 



7 

A 
LC80i-*-i 

LCSEC 



RTJ SPACEOVER 

RTJ* CLR 
LOQ EQUIP 



RAO* PASSCT 
LOA 



CK FOR ENO OF TAPE COOE 

ENO OF TAPE PUNCH 
NO ERROR COULD NOT FIND THIS LEVEL PUNCH 



10 LEVELS OF 8 PUNCHES IS END OF TAPE 
CLEAR INTERRUPTS 



PASS COUNT 



= XPTR00* 



PASSCT 



RTJ- CSTOPXI 
JMP* LC802 
NUM $0*0* 
NUM 



ENO OF TEST STOP 
STOP ID 



00376 
00377 
00378 
00379 
00380 

00381 

00382 
00383 

0038* 
00385 

00386 
00387 
00388 
00389 
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0391 


P012F 


0AF9 


LC802 


ENA -6 






0392 


P0130 


6805 




STA* 


LT802U 




0393 


P0131 
P0132 


5800 
0130 


LC802A 


RTJ 




DELM 




0394 


P0133 


0802 




RAO* 


LT802+1 




0395 


P0134 
P0135 


COOO 
0000 


LT802 


LOA 




= N0 




0396 


P0136 


0101 




SAZ 




LC802B-*-l 


HAS 6 MS BEEN OELAYEO 


0397 


P0137 


18F9 




JMP* 


LC802A 


NO 


0398 


P0138 


0A40 


LC802B 


ENA 




$40 


YES 


0399 


P0139 


584A 




RTJ* 


JUMP 




REPEAT TEST 


0400 


PQ13A 


1802 




JMP* 


ET 




YES 


0401 


P013B 


180B 




JMP* 


ETi 




NO 


0402 


P013C 


C075 


ET 


LOA- 


CONST+10 




0403 


P013D 


5846 




RTJ* 


JUMP 




CHECK FOR RE-ENTRY OF PARAMETERS 


040<i 


P013E 


1802 




JMP* 


ET5 




YES 


0405 


P013F 


1805 




JMP» 


ET6 




NO 


0406 


P0140 


5800 


ET5 


RTJ 


INPARA 


RE-ENTER PARAMETERS 




P0141 


FECA 












0407 


P0142 


1800 




JMP 


CNTRLA 






P0143 


FEF9 












0408 


P0144 
P0145 


1800 
FEFE 


ET6 


JMP 


CNTRL 






0409 


P0146 


COOO 


ET1 


LOA 




= XPTR004 






P0147 


0000 P 










0410 


P0148 


5403 




RTJ- 


(TSEXIT) 


DONE RETURN TO SMM WITH BIAS IN 


0411 


P0149 


C075 


ET2 


LDA- 


CONSTflO 




0412 


P014A 


5406 




RTJ- 


(JUMPX) 


CHECK FOR RE-ENTRY OF PARAMETERS 


0413 


P014B 


1802 




JMP» 


ET3 




RE-ENTER PARAMETERS 


0414 


P014C 


1803 




JMP* 


ET4 




DO NOT RE-ENTER FARAMETERS 


0415 


P014D 


5800 


ET3 


RTJ 


INPARA 






P014E 


FEBO 












0416 


P014F 
P0150 


1800 
FEEC 


ET4 


JMP 




CNTRLA 


REPEAT TEST-FREQUENCY 



<~ 



PTC2 



00391 
00392 
00393 

00394 
00395 

00396 
00397 
00398 
00399 
00400 
00401 
00402 
00403 
00404 
00405 
00406 

00407 

00408 

00409 

00410 
00411 
00412 
00413 
00414 
00415 

00416 



S~ 



0418 P0151 0A09 

0419 P0152 5803 

0420 P0153 1800 
P0154 FEF1 



LCENO 



ENA 9 
RTJ* ERROR 
JMP LC000 



NO PATTERN COULD BE FOUND FORTH S 

CONTROL PUNCH 

RETURN 



00418 
00419 
00420 



0422 P0155 0000 

0423 P0156 6814 

0424 P0157 5838 

0425 P0158 C800 
P0159 0095 



ERROR 



NUN SO 
STA* SEER 
RTJ» CLR 
LOA LCCNT 



ERROR ROUTINE 
CLEAR INTERRUPTS 



00422 
00423 
00424 
00425 
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0426 P015A 


0FC8 




ALS 


8 




0427 P015B 


880F 




ADD* 


SEER 




0428 P015C 


680E 




STA» 


SEER 




0429 P015D 


C8F7 




LOA» 


ERROR 




0430 P015E 


6800 




STA* 


RETAOR 




0431 P015F 


C043 




LDA- 


STJP 




0432 P0160 


A074 




AND- 


CONST+9 




0433 P0161 


0114 




SAN 


CHERl-»-l 


BIAS RETURN ADDRESS 


0434 P0162 


C80 9 




LDA» 


RETAOR 


NO 


0435 P0163 


9000 




SU3 


*XPTR004 




P0164 


0000 P 










0436 P0165 


6806 




STA* 


RETADR 




0437 P0166 


0844 


CMERi 


CLR 


A 




0438 P0167 


540 2 




RTJ- 


(STOPX) 




0439 P0168 


1806 




JHP* 


El 




0440 P0169 


0408 


10 


NUN 


S0408 


STOP 10 


0441 P016A 


0000 


SEER 


NUH 


SO 


SECTION / ERROR 


0442 P016B 


0000 


RETAOR 


NUH 


$0 


RETURN AODRESS 


0443 P016C 


0000 


CHFRAM 


NUH 





EXPECTEO FRAHE 


0444 P0160 


0000 


CHREAO 


NUH 





READ 


0445 P016E 


cooo 


El 


LOA 


=NS408 




P016F 


0408 










0446 P0170 


68F8 




STA* 


10 




0447 P0171 


5829 




RTJ* 


SEL 


SELECT DATA INTERRUPT 


0448 P0172 


1CE2 




JHP* 


(ERRORl 


EXIT 



200 



00426 
00427 
00428 
00429 
00430 
00431 
00432 
00433 
00434 
00435 

00436 
00437 
00438 
00439 
00440 
00441 
00442 
00443 
00444 
00445 

00446 
00447 
00448 



r 
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0450 


P0173 


0000 


RESTHD 


NUH 





0451 


P0174 


0842 




CLR 


Q 


0452 


P0175 


CEOD 




LOA* 


(LEVELCT),Q 


0453 


P0176 
P0177 


6800 
0191 




STA 


WORD 


04 54 


P0178 
P0179 


6800 
0190 




STA 


WORO+1 


0455 


P017A 


0D01 




INQ 


1 


0456 


P017B 


CEO 7 




LOA* 


(LEVELCT), Q 


0457 


P017C 
P017D 


6800 
018D 




STA 


W0R0»2 


0458 


P017E 


0804 




SET 


A 


0459 


P017F 
P0180 


6800 
0188 




STA 


PPSH 


0460 


P0181 


1CF1 




JHP* 


(RESTWD) 


0461 


P0182 


0000 


LEVELCT 


NUH 






DATEt 12/17/74 

RESTORE WORDS IN GENERATE PATTERN ROUTINE 
RESTORE WORD AND WORD+1 



RESTORE HORD+2 



r 



EXIT 



0450 
00451 
00452 
00453 

00454 

00455 
00456 
00457 

00458 
00459 

00460 
00461 



r 



0463 P0183 


0000 


JUMP 


NUH 







CHECK STOP/JUMP WORD FOR JUHP 


0464 P0184 


018«i 




SWS 


JUHP1-*- 


•1 


A a JUHP MASK 


0465 P0185 


A043 




ANO- 


STJP 






0466 P0186 


0112 




SAN 


JUHP1-*- 


■1 




0467 P0187 


D8F8 




RAO» 


JUMP 






0468 P0188 


1CFA 




JHP» 


(JUHP) 




BIT NOT SET IN S TOP/ JUHP WORD 


0469 P0189 


6805 


JUMP1 


STA* 


JUHP3 . 




SAVE JUHP HASK 


0470 P018A 


5406 




RTJ- 


(JUHPX) 




JUHP SWITCH SET 


0471 P018B 


1802 




JMP» 


JUMP2 




YES 


0472 P018C 


D8F6 




RAO* 


JUHP 




NO 


0473 P018D 


1CF5 


JUMP2 


JHP* 


(JUHP» 




EXIT 



00463 
00464 
00465 
00466 
00467 
00468 
00469 
00470 
00471 
00472 
00473 



0475 P018E 0000 JUHP3 NUH 



00475 
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0477 P018F 0000 CLR NUH 





0478 P0190 E800 


LDQ 


EQUIP 


P0191 FE74 






0479 P0I92 C800 


LOA 


I NT HO 


P0193 00A8 






0480 P0194 0102 


SAZ 


2 


0481 P0195 0A02 


ENA 


2 


0482 P0196 03FE 


OUT 


-1 


0483 P0197 OA40 


ENA 


$40 


0484 P0198 03FE 


OUT 


-1 


0485 P0199 1CF5 


JMP* 


(CLR) 



DATE* 12/17/74 

YES, CLEAR INTERRUPTS 
INTERRUPT MOOE 

STOP MOTION 



00477 
00478 

00479 

00480 
00481 
00482 
00483 
00<»84 
00485 



r^ 



0487 


P019A 


0000 


0488 


P019B 


E800 




P019C 


FE69 


0489 


P019D 


caoo 




P019E 


00A0 


0490 


P019F 


0102 


0491 


P01A0 


0A04 


0492 


P01A1 


03FE 


0493 


P01A2 


0A20 


0494 


P01A3 


03FE 


0495 


P01A4 


0400 


0496 


P01A5 


1CF4 



SEL 



NUH 





LOQ 


EQUIP 


LOA 


INTHO 


SAZ 


2 


ENA 


4 


OUT 


-1 


ENA 


S20 


OUT 


-1 


EIN 





JMP» 


(SEL) 



SELECT DATA INTERRUPTS 
YES, SELECT DATA INTERRUPT 

INTERRUPT MODE 



START NOTION 



00487 
00488 

00489 

00490 
00491 
00492 
00493 
00494 
00495 
00496 
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0498 


P01A6 


0000 


CHECKREAO NUM 


0499 


P01A7 


68C4 


STA* 


CHFRAME 


0500 


P01A8 
P01A9 


5800 
005B 


RTJ 


STATUS 


0501 


P01AA 


68C2 


STA* 


CHREAO 


0502 


P01A8 


B8C0 


EOR* 


CHFRAME 


0503 


P01AC 


0116 


SAN 


CH02-*-l 


050V 


P01AO 
P01AE 


caoo 

015F 


CHOI LDA 


SECTENDSH 


0505 


P01AF 


6827 


STA* 


CH1STHD 


0506 


P0180 


0101 


SAZ 


1 


0507 


P01B1 


58C1 


RTJ* 


RESTWO 


0508 


P01B2 


1CF3 


JMP» 


(CHECKREAO) 


0510 


P01B3 


C823 


CH02 LOA* 


CH1STWD 


0511 


P01B4 


0112 


SAN 


2 


0512 


P01B5 


OAOE 


ENA 


$E 


0513 


P01B6 


1818 


JMP* 


CH04 


0514 


P01B7 


C8B5 


LDA* 


CHREAO 


0515 


P01B8 


6820 


STA" 


* SAVECH 


0516 


P01B9 
P01BA 


9800 
0033 


SUB 


LCSEC 


0517 


P01BB 


0822 


TRA 


Q 


0518 


P01BC 


78B0 


SPA* 


CHREAD 


0519 


P01BO 


0102 


SAZ 


2 


0520 


P01BE 


0A08 


ENA 


S8 


0521 


P019F 


180F 


JMP* 


CH04 


0522 


P01C0 


0FE1 


CH03 LLS 


1 


0523 


P01C1 


0131 


SAM 


1 


052V 


P01C2 


18F0 


JMP» 


CH03 


0525 


P01C3 


A087 


AND- 


H7FFF 


0526 


P01C4 


0102 


SAZ 


2 


0527 


P01C5 


0A06 


ENA 


$6 


0528 






* 




0529 


P01C6 


180 8 


JMP* 


CH04 


0530 


P01C7 


C811 


LOA< 


► SAVECH 


0531 


P01C8 
P01C9 


6800 
FFA3 


STA 


CHREAO 


05 32 


POICA 
P01CB 


5800 
017A 


RTJ 


SENO 


0533 


POICC 
POICD 


1800 
FE94 


JMP 


LCRET 



DATE* 12/17/7*4 



CHECKAND REAO A * THE NEXT FRAME TO BE 
REAO AND CHECK 
READ ONE FRAME 

STORE FRAME JUST READ 

FRAME EQUAL WITH FRAME WANTED 
YES 

SAVE THE END OF PATTERN CYCLE SWITCH FOR 



NEXT PASS IUSE AS 1ST FRAME OF CYCLE) 

NO THIS MAY THE FIRST WORD OF CYCLE AND 
ERROR-DATA READ WAS NOT EXPECTED OATA 
PUNCHES 



ERROR-CONTROL PUNCH DID NOT HAVE EVEN PARI 

YES 

CLEAR BIT 15 

ERROR-MORE THAN ONE BIT PUNCHED PER FRAME 
CONTROL PUNCH 



CHECK FOR END OF SECTION STOP 
PATTERN 



00498 
00499 
00500 

00501 
00502 
00503 
00504 

00505 
00506 
00507 
00508 



00510 
00511 
00512 
00513 
00514 
00515 
00516 

00517 
0518 
00519 
00520 
00521 
00522 
00523 
00524 
00525 
00526 
00527 
00528 
00529 
00530 
00531 

0532 

00533 



0535 P01CE 6809 

0536 PQ1CF 588F 

0537 P01D0 C807 

0538 P01O1 OC10 

0539 P01D2 F896 



CH04 



STA* SAVE 
RTJ* CLR 
LOA* SAVE 
ENQ $10 
ADQ* 10 



CLEAR INTERRUPTS 



SET UP STOP ID 



00535 
00536 
00537 
00538 
00539 
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DATEI 12/17/74 


0540 P01D3 <i895 




STQ» ID 




0541 P01D4 5880 




RTJ* ERROR 




0542 P0105 1807 


CH05 


JMP» CHOI 


RETURN 


0543 P0106 0000 


CH1STH 


NUM 


1ST HORO SWITCH 


0544 P01O7 0000 


SAVE 


NUM 




0545 P01O8 0000 


SAVECH 


NUM • 





00540 
00541 
00542 
00543 
00544 
00545 



/ N 



o 



o 
o 
o 
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05*»7 P01O9 


0000 


SPACEOVER NUM 


0548 P010A 


0AF6 




ENA 


-9 


0549 POIDB 


681 4 


SPOV 


STA» 


CTLV 


0550 P01OC 


5800 


SP0V1 


RTJ 


STATUS 


P010D 


0027 








0551 P010F 


B800 




EOR 


LCSEC 


P010F 


OOOE 








0552 P01E0 


0117 




SAN 


SPOVERR- «-l 


0553 P01E1 


D80E 




RAO» 


CTLV 


0554 P01E2 


C80O 




LDA» 


CTLV 


0555 P01E3 


0101 




SAZ 


SP0V2-»-l 


0556 P01E4 


18F7 




JMP» 


SPOV1 


0557 P01E5 


6800 


SP0V2 


STA 


CH1STWD 


P01E6 


FFEF 








0558 P01E7 


1CF1 




JMP» 


(SPACEOVER) 


0560 P01E8 


0A07 


SPOVERR 


ENA 


7 


0561 P01E9 


5800 




RTJ 


ERROR 


P01EA 


FF6A 








0562 P01EB 


1800 




JMP 


LC002 



DATEI 12/17/71* 

SPACE OVER THE 9 REMAINING PATTERN CONTROL 

READ ONE FRAME 

ALL 10 CONTROL FRAME MUST BE EQUAL 

EQUAL 
YES 



^ 



LAST FRAME 

NO NEXT FRAME 

CLEAR 1ST WORD OF CYCLE 

YES 



SWITCH 



♦•ERR 
ALL LEVEL CONTROL PUNCHES NOT EQUAL 



00547 
00548 
005<f9 
00550 

00551 

00552 
00553 
00554 
00555 
00556 
00557 

00558 



00560 
00561 

00562 



v.. 



P01EC FE73 



0564 P01EO 0000 

0565 P01EE 0000 

0566 P01EF 0000 



LCSEC NUM 
LCCNT NUM 
CTLV NUM 



LEVEL CONTROL WORD 
LEVEL COUNT 



00564 
00565 
00566 
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OATEl 12/17/7% 






o 


0568 


P01F0 


0000 


STHOTION NUM 





START PAPER TAPE HOTION 


00568 




0569 


P01F1 
P01F2 


E8Q0 
FE13 


STM1 


LDQ 


EQUIP 






00569 


o 


0570 


P01F3 


08%% 




CLR 


A 






00570 


0571 


P01F% 


0207 




INP 


SHREJl-»-l 


INPUT STATUS 




00571 




0572 


P01F5 


A06C 




AND- 


CONST+1 




0002 


00572 




0573 


P01F6 


0101 




SAZ 


1 






00573 


o 


057% 


P01F7 


1CF8 




JNP» 


(STHOTION) 






0057% 


0575 


P01F8 


0A20 


STM2 


ENA 


$20 






00575 


0576 


P01F9 


0305 




OUT 


SHREJ2-»-l 


START HOTION 




00576 




0577 


P01FA 


1CF5 




JHP* 


(STHOTION) 


EXIT 




00577 




0578 


P01FB 


0901 




INA 


1 


INTERNAL REJECT ON 


STATUS-ERR 2 


00578 


o. 


0579 


P01FC 


0901 


SMREJ1 


IN A 


1 


EXTERNAL REJECT ON 


STATUS-ERR 1 


00579 


0580 


POtFO 


ISO* 




JHP» 


SHREJ3 






00580 




0561 


P01FE 


0901 




INA 


1 


INTERNAL REJECT ON 


START HOTION-ERR11 


00581 




0582 


P91FF 


0902 


SMREJ2 


INA 


2 


EXTERNAL REJECT ON 


START HOTION-ERR10 


00582 




0583 


P0200 


09EO 




INA 


-$12 






00583 


058*1 


P0201 


5800 


SMREJ3 


RTJ 


ERROR 






0058% 






P0202 


FF52 
















0585 


P0203 


18E0 




JHP* 


STH1 


TRY AGAIN 




00585 



w 



O 



o 
o 
o 
o 



o 
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OATEI 12/17/74 



0588 


P0204 


0000 


STATUS NUM 





0589 


P0205 
P0206 


C800 
FEOB 


IDA 


CNTURO 


0590 


P0207 


A076 


ANO- 


CONST+il 


0591 


P0208 


6836 


STA* 


I NT MODE 


0592 


P0209 


010C 


SAZ 


STi-*-l 


0593 


P020A 
P020B 


E800 
FDFA 


LDQ 


EQUIP 


0594 


P020C 


0A04 


ENA 


4 


0595 


P020D 
P020E 


6800 
009B 


STA 


INFLG 


0596 


P020F 


03FE 


OUT 


-1 


0597 


P0210 


0400 


EIN 





0598 


P0211 


5866 


RTJ* 


CHECK 


0599 


P0212 


0820 


RAO* 


INTCH 


0600 


P0213 
P0214 


C800 
0093 


LOA 


FRAME 


0601 


P0215 


1CEE 


JMP* 


(STATUS) 


0602 


P0216 
P0217 


C800 
FDFA 


ST1 LOA 


CNTHRO 


0603 


P0218 


A075 


AND- 


CONST+10 


0604 


P0219 


0101 


SAZ 


1 


0605 


P021A 


583D 


RTJ* 


DEL 


0606 


P021B 


C073 


LDA- 


BIT8 


0607 


P021C 


6821 


STA* 


ERCNT 


0608 


P021D 
P021E 


E800 
FOE 7 


ST2 LDQ 


EQUIP 


0609 


P021F 


0225 


INP 


ERRl-*-l 


0610 


P0220 


6833 


STA* 


RSTATUS 


0611 


P0221 


A06E 


AND- 


CONSH-3 


0612 


P0222 


0117 


SAN 


ST3-*-l 


0613 


P0223 


583F 


RTJ* 


OELM 


0614 


P0224 


C819 


LOA* 


ERCNT 


0615 


P0225 


09FE 


INA - 


1 


0616 


P0226 


6817 


STA* 


ERCNT 


0617 


P0227 


0101 


SAZ 1 




0618 


P0228 


18F4 


JMP* 


ST2 


0619 


P0229 


180A 


JMP* 


ST4 


0620 


P022A 


ODFE 


ST3 INQ 


-1 


0621 


P022B 


0217 


INP 


ERR3-*-l 


0622 


P022C 


6829 


STA* 


RCHAR 


0623 


P0220 


0813 


RAO* 


CHCH 


0624 


P022E 


0A10 


ENA 


$10 


0625 


P022F 


5406 


RTJ- 


(JUMPXI 


0626 


P0230 


18E5 


JMP* 


ST1 


0627 


P0231 


C824 


LDA* 


RCHAR 


0628 


P0232 


1C01 


JMP* 


(STATUS* 


0630 


P0233 
P0Z34 


COOO 
0509 


ST4 LOA 


=N$509 


0631 


P0235 
P0236 


6800 
FF35 


STA 


CHFRAM 




60220400 E 







CHECK STATUS AND READ ONE FRAME OF DATA 

IS INTERRUPT MOD F SELECTED 
NO 



SET FLAG 

SELECT DATA INTERRUPT 
WAIT FOR INTERRUPT 

FRAME JUST READ 



CHECK FOR DELAY-CHARACTER MODE ONLY 
OELAY NOT SELECTED 



PTC2 



PTC2 



SET WAIT LOOP COUNT 



DATA REAOY 
YES 
DELAY 1 MS, RETURN TO MONITOR 



DECREMENT LOOP COUNT 
SKIP IF TIMED OUT 
CONTINUE LOOPING 
REPORT TIMEOUT ERROR 



REPEAT CONOITION 



PTC2 
PTC2 



PTC2 
PTC2 
PTC2 
PTC2 
PTC2 
PTC2 
PTC2 



SET EXPECTED STATUS 



PTC2 
PTC2 



00588 
00589 

00590 
00591 
00592 
00593 

00594 
00595 

00596 
00597 
00598 
00599 
00600 

00601 
00602 

00603 
00604 
00605 
00606 
00607 
00608 

00609 
00610 
00611 
00612 
00613 
00614 
00615 
00616 
00617 
00618 
00619 
00620 
00621 
00622 
00623 
00624 
00625 
00626 
00627 
00628 



00630 
00631 

PAGE 20 
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r 
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PTR004 



0632 P0237 C81C 

0633 P0238 6800 
P0239 FF33 

0634 P023A 0A20 

0635 P0238 5800 
P023C FF18 



PAGE 21 



LDA* RSTATUS 
STA CHREAO 

ENA $20 
RTJ ERROR 



OATEI 12/17/74 



SET ACTUAL STATUS 



REPORT ERROR 20- NO OATA STATUS 



PTC2 
PTC2 

PTC2 
PTC2 



00632 
00633 

00634 
00635 



o 



0637 


P023D 


0000 


ERCNT NUH 





0638 


P023E 


0000 


INTHOOE NUH 


30 


0639 


P023F 


0000 


INTCH NUH 





0640 


P0240 


0000 


CHCH NUH 






WAIT LOOP COUNT 



PTC2 



00637 
00638 
00639 
00640 



W 



u 
O 



O 



0642 
0643 
06 44 
0645 
0646 
0647 
0648 
0649 
0650 
0651 
0652 
0653 
0654 

0655 
0656 
0657 
0658 
0659 
0660 
0661 
0662 



P0241 
P0242 
P0243 
P0244 
P0245 
P0246 
P0247 
P0248 
P0249 
P024A 
P024B 
P024C 
P024O 
P024E 
PQ24F 
P0250 
P0251 
P0252 
P0253 
P0254 
P0255 
P0256 



0000 

D8FE 

08F0 

D8FC 

D8F8 

C80C 

A081 

B8F8 

6809 

480A 

0844 

68F4 

C000 

0000 P 

5402 

18C5 

0428 

0100 

0000 

0000 

0000 

FFFF 



CTER 
ERR4 
ERR3 
ERR2 
ERR1 



NUH 
RAO< 



$0 
CTER 



SECERR NUH 
RSTATUS NUH 
EQCODE NUH 
RCHAR NUH 
NUH 



RAO* CTER 
RAO* CTER 
RAO* CTER 
LDA* SECERR 

AND- HO OFF 
EOR» CTER 
STA* SECERR 
STQ* EQCODE 
CLR A 
STA* CTER 

LDA =XPTR004 

RTJ- (STOPX) 
JHP* ST1 
NUH $0428 

$0100 

$0 

$0 

$0 

-$0 



INTERNAL REJECT ON OATA INPUT-ERR4 
EXTERNAL REJECT ON OATA INPUT-ERR3 
INTERNAL REJECT ON STATUS REQUEST-ERR2 
EXTERNAL REJECT ON STATUS REQUEST-ERR1 

OOFF 



ERROR STOP 

STOP 10 

SECTION* ERROR NUHBER 

STATUS OF EQUIP 

EQUIPHENT CODE AT TIHE OF ERROR 

CHARACTER JUST REAO 

NOT USED 



00642 
00643 
00644 
00645 
00646 
00647 
00648 
00649 
00650 
00651 
00652 
00653 
00654 

00655 
00656 
00657 
00658 
00659 
00660 
00661 
00662 



0664 P0257 0000 DEL NUH 

0665 P0258 C800 LOA OELRO 
P0259 FDBA 

0666 P025A 0664 TCA A 

0667 P025B 6819 STA* DELCT 

0668 P025C 5806 OELl RTJ* DELH 

0669 P025D 0817 RAO* DELCT 



PARAHETER OELRO IS THE NUHBER OF HILLISECO 

DELAY BETWEEN READING FRAHES-CHARACTER HOO 
TO PARAHETER DELRD. 

DELAY ONE HILLISECOND AND GO TO SHH. 
UPOATE DELAY COUNTER 



00664 
00665 

00666 
00667 
00668 
00669 
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DATE* 12/17/74 



0670 P025E C616 

0671 P025F 0101 

0672 P0260 18FB 

0673 P0261 1CF5 



LDA» DELCT 
SAZ 1 
JHP» DELI 
JMP» (DEL) 



REPEAT ONE MILLISECOND DELAY 



00670 
00671 
00672 
00673 



0675 
0676 

0677 
0678 
0679 
0680 
0681 
0682 

0683 
068«i 
0685 
0686 
0687 
Q688 
0689 
0690 
0691 



P0262 
P0263 
P0264 
P0265 
P0266 
P0267 
P0268 
P0269 
P026A 
P026B 
P026C 
P026D 
P026E 
P026F 
P0270 
P0271 
P0272 
P0273 
P0274 



0000 
E800 
0009 
C201 
09FE 
0101 
18FD 
C80A 
6800 
F099 
5401 
0000 
012C 
00C8 
0226 
0168 
1CEF 
0000 
0000 



OELM 



NUH 
LOO. MCHPTR 

LOA- ltQ 

INA -1 

SAZ 1 

JHP» »-2 

LDA» 

STA 



RTJ- 

MCHPTR NUH 
NUN 
NUH 
NUH 
NUH 

RET 

HR 



GET MACHINE TYPE CODE- 0-3 

GET COUNT VALUE 

OELAY FOR ONE HILLISECONO 
THEN RETURN CONTROL TO SMH 



HR 
RETURN 

(CONTROL) 



PRESTORED ADDR OF RET 



300 

200 

550 

360 
JHP» (DELHI 
NUH 



DELCT NUH 



1704/14 COUNT CALUE 
1771* COUNT VALUE 
600 NS COUNT VALUE 
900 NS COUNT VALUE 
EXIT 

DELAY COUNTER 





00675 


PTC2 


00676 


PTC2 


00677 




00678 




00679 




00680 




00681 




00682 




00683 


PTC2 


00684 


PTC2 


00685 


PTC2 


00686 


PTC2 


00687 


PTC2 


00688 




00689 




00690 




00691 



0693 P0275 0276 P RANAOD ADC RAN 

0694 P0276 0000 RAN NUH 



STORAGE ADORESS FOR RANDOH NUHBER 
RANOOH NUHBER STOREO HERE 



00693 
00694 
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V... 



o 
o 
o 
o 



o 
o 



0696 
0697 
0698 
0699 
0700 
0701 

0702 

0703 
070* 
0705 
0706 
0707 
0708 
0709 
0710 
0711 
0712 
0713 
071* 
0715 
0716 
0717 
0718 
0719 
0720 

0721 

0722 
0723 
072* 
0725 
0726 
0727 
0728 
0729 
0730 
0731 

0732 

0733 
073* 
0735 
0736 
0737 
0738 
0739 
07*0 
07*1 
07*2 



P0277 
P0278 
P0279 
P027A 
P027B 
P027C 
P027D 
P027E 
P027F 
P0280 
P0281 
P0282 
P0283 
P028* 
P0285 
P0286 
P0287 
P0288 
P0289 
P028A 
P028B 
P028C 
P0280 
P028E 
P028F 
P0290 
P0291 
P0292 
P0293 
P029* 
P0295 
P0296 
P0297 
P0298 
P0299 
P029A 
P029B 
P029C 
P029D 
P029E 
P029F 
P02A0 
P02A1 
P02A2 
P02A3 
P02A* 
P02A5 
P02A6 
P02A7 
P02A8 
P02A9 
P02AA 
P02AB 



0000 
C073 
68C3 
C82F 
010F 
C000 
027A 
6800 
F085 
C83C 
09FE 
68BA 
0101 
5*01 
08** 
6820 
6820 
0A21 
6821 
160C 
E81F 
0151 
1CE9 
C0*9 
A06B 
0105 
COOO 
028E 
6800 
F070 
5*01 
0A01 
6812 
C889 
A 081 
B810 
680A 
08** 
6800 
5800 
FEEF 
COOO 
0000 
5*02 
1808 
0*18 
0100 
0000 
000Q 
0000 
0000 
0000 
08** 
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CHECK NUM 

LDA- BIT8 

STA* ERCNT SET HA IT LOOP COUNT 

CHECKA LOA* INFL6 CHECK INTERRUPT FLAG 

SAZ CH-*-l NOT SET 

CHECK1 LOA = XCHECKA 



PTC2 
PTC2 



SE 
STAT 

FRAHE 

EXIT 

INFLG 

ERC 

CH1A 



STA 



RETURN 



CH 



CHECKS 



CHECK2 



CHA 



LDA* ERCNT 

INA -1 

STA* ERCNT 

SAZ 1 

RTJ- f CONTROL) 

CLR A 

STA* STAT 

STA» FRAME 

ENA $21 

STA* ERC 

JMP* CHA 

LOO* ERC 
SQN 1 
JMP* (CHECK) 
LDA- INFORM 
AND- CONST 
SAZ CHA-*-l 
LOA -XCHECKB 



CECREHENT LOOP COUNT 
SKIP IF TIHMED OUT 
RETURN TO SMH 
HERE IF TIMEO OUT 
ZERO PARAMETERS 



SET ERROR COOE 
REPORT ERROR 21- 



TIMEOUT WAITING FOR 



PTC2 
PTC2 
PTC2 
PTC2 
PTC2 
PTC2 
PTC2 
PTC2 
PTC2 
PTC2 
INT PTC2 



IS 



TTY 
YES 



BUSY 



STA 



RETURN 



(CONTROL) 
1 



RTJ- 

ENA 
STA* INFLG 
LOA* SECERR 

AND- HO OFF 

EOR* ERC 
STA* SE 
CLR A 
STA* ERC 
RTJ CLR 



RETURN TO SMM 
NO 



FORM SECTION AND ERROR COOE 



LOA 



=XPTR00* 



RTJ- CSTOPX) 

JMP* CH1A 

NUM $*18 
$100 
$0 



NUM 
NUM 
NUM SO 



CLEAR INTERRUPTS 



STOP 10 

SECTION.ERROR NUMBER 
STATUS OF EQUIPMENT 
CHARACTER JUST READ 



NUM 
NUM 
NUM 
CLR 



00696 
00697 
00698 
00699 
00700 
00701 

00702 

00703 
0070* 
00705 
00706 
00707 
00708 
00709 
00710 
00711 
00712 
00713 
0071* 
00715 
00716 
00717 
00718 
00719 
00720 

00721 

00722 
00723 
0072* 
00725 
00726 
00727 
00728 
0O729 
00730 
00731 

00732 

00733 
0073* 
00735 
00736 
00737 
00738 
00739 
007*0 
007*1 
007*2 
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0743 P02AC 68FC 

0744 P02AO 5800 
P02AE FEE8 

07*5 P02AF 1CC7 



STA» 
CHI RTJ SEL 



INFLG 
JHP» (CHECK) 



SELECT DATA INTERRUPT 



00743 
00744 

00745 



V..., 



0747 






♦ 


THIS 


ROUTINE PROCESSES INTERRUPTS 


00747 


0748 






* 


INTERRUPT 1 


EXIT STATE ' 


VALUE IN Q 


UPON ENTRY 


00748 


0749 


P02B0 


0000 


IHTFLG 


NUH 











00749 


0750 


P0281 


0000 


INPROC 


NUM 











00750 


0751 


P02B2 


48F5 




STQ» 


EXIT 




EXIT INTERRUPT STATE VALUE 


00751 


0752 


P02B3 
P02B4 


E800 
FD51 




LDQ 


EQUIP 








00752 


0753 


P02B5 


0844 




CLR 




A 






00753 


0754 


P02B6 


02FE 




INP 


-1 




STATUS 




00754 


07 55 


P02B7 


6 SEE 




STA* 


STAT 








00755 


0756 


P02B8 


A06O 




AND- 


CONST+2 


INTERRUPT 


BIT SET 


00756 


0757 


P02B9 


0101 




SAZ 




INTENA-»-l 




DID THIS EQUIPMENT INTERRUPT 


00757 


0758 


P02BA 


180F 




JHP» 


INPR1 




YES 


00758 


0759 


P02BB 


E8F4 


INTENA 


LOQ* 


INTFL6 




NO 


00759 


0760 


P02BC 


0151 




SQN 




INTENB-»-l 




IS THIS ONLY STATION ON INT LINE 


00760 


0761 


P02BD 


1809 




JHP» 


INTEN2 




YES 


00761 


0762 


P02BE 


C8F2 


INTENB 


LOA» 


INPROC 




NO 


00762 


0763 


P023F 


6600 




STA+ 


O.Q 




PASS RETURN ADDRESS TO PTP 


00763 




P02C0 


0000 
















0764 


P02C1 


0O01 




INQ 




1 




INTERRUPT ROUTINE 


00764 


0765 


P02C2 


4803 




STQ» 


INTEN1*! 






00765 


0766 


P02C3 


E8E4 




LOQ» 


EXIT 




ALSO PASS Q ALONG 


00766 


0767 


P02C4 


1*00 


INTEN1 


JHP* 







GO TO INT PROCESSOR IN PTP TEST 


00767 




P02C5 


0000 
















0768 


P02C6 


OAOA 


INTEN2 


ENA 




SA 




ERROR- INTERRUPT STATUS NOT SET 


00768 


0769 


P02C7 


68E2 




STA» 


ERC 








00769 


0770 


P02C8 


181E 




JMP» 


INPR5 








00770 


0771 


P02C9 
P02CA 


E800 
FD3B 


INPR1 


LDQ 




EQUIP 






00771 


0772 


P02CB 


C80A 




LDA» 


STAT 






00772 


0773 


P02CC 


AOOO 




AND 


=N$403 


STATUS SHOULD BE POHER ONt EXISTENCE* 


00773 




P02CD 


0403 
















0774 


P02CE 


B000 




EOR 


=N$403 


READY ANO 


BUSY 


00774 




P02CF 


0403 
















0775 


P0200 


0103 




SAZ 


INPR2- 


-»-l 






00775 


0776 


P0201 


OAOB 




ENA 


$8 




ERROR- IN PROPER STATUS 


0776 


0777 


P0202 


6807 




STA» 


ERC 








00777 


0778 


P02D3 


1813 




JHP» 


INPR5 








00778 


0779 


P02D4 


C801 


INPR2 


LOA» 


STAT 








00779 


0780 


P0205 
P02O6 


AOOO 
0060 




AND 


= N$60 




CHECK FOR 


ALARM AND LOST DATA 


00780 


0781 


P0207 


0103 




SAZ 


INPR3- 


-•-1 






00781 


0782 


P0208 


OAOC 




ENA 


$C 




ERROR-ALARM AND/OR LOST DATA 


00782 


0783 


P0209 


68O0 




STA» 


ERC 








00783 


0784 


P02OA 


180C 




JMP* 


INPR5 








00784 
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PTROO* 



S"~\ 



o 



0785 
0766 
0767 
0788 
0789 
0790 
0791 
0792 
0793 
079* 
0795 
0796 
0797 
0798 
0799 
0800 
0801 
0802 



PO20B 
P02OC 
P02OO 
P02DE 
P02DF 
P02E0 
P02E1 
P02E2 
P02E3 
P02E* 
P02E5 
P02E6 
P02E7 
P02E8 
P02E9 
P02EA 
P02EB 
P02EC 



C8CA 
A06E 
0106 
08** 
OOFE 
02FE 
68C5 
0O01 
1803 
OAOO 
68C* 
C8C2 
806C 
03FE 
08* * 
689E 
E88C 
ICC* 



INPR3 



INPR* 



INPR5 
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LDA* 


STAT 


AND- 


C0NST»3 


SAZ 


lNPR*-*-l 


CLR 


A 


INQ 


-1 


IMP 


-1 


STA* 


FRAME 


INQ 


1 


JMP* 


INPR5 


ENA 


$0 


STA* 


ERC 


LDA* 


INFLG 


EOR- 


CONST*l 


OUT 


-1 


CLR 


A 


STA* 


INFLG 


LDQ* 


EXIT 


JMP* 


CINPROC) 



DATEI 12/17/7* 



DATA INTERRUPT 

NO 

YES-INPUT ONE FRAHE 



ERROR-UNIDENTIFIEO INTERRUPT 



CLEAR INTERRUPTS 

CLEAR FLAG 

EXIT INTERRUPT STATE VALUE 



00785 
00786 
00787 
00788 
00789 
00790 
00791 
00792 
00793 
0079* 
00795 
00796 
00797 
00798 
00799 
00800 
00801 
00802 



W 



O 



O 



060* 


P02EO 


0000 


GENPATT 


NUH 





0805 


P02EE 


08** 




CLR 


A 


0806 


PQ2EF 


681E 




STA* 


SECTENDSH 


0807 


P02F0 


E818 




LDQ* 


HORO 


0808 


P02F1 


C81A 




LDA* 


PPSH 


0809 


P02F2 


0106 




SAZ 


GEN2-*-i 


0810 


P02F3 


0FA1 




QLS 


1 


0811 


P02F* 


0161 




SQP 


GENl-*-l 


0812 


P02F5 


180C 




JMP* 


PPOUT 


0813 


P02F6 


08** 


GEN1 


CLR 


A 


081* 


P02F7 


681* 




STA* 


PPSH 


0815 


P02F8 


E812 




LDQ* 


H0R0+2 


0816 


P02F9 


0F21 


GEN2 


QRS 


1 


0817 


P02FA 


081* 




TRQ 


A 


0618 


P02FB 


A082 




ANO- 


HFFOO 


0819 


P02FC 


Oil* 




SAN 


PPOUT-*- 1 , 


0820 


P02FO 


caoc 




LDA* 


HORD+1 


0821 


P02FE 


680A 




STA* 


HORD 


0822 


P02FF 


680C 




STA* 


PPSH 


0823 


P0300 


680O 




STA* 


SECTENDSH 


082* 


P0301 


*807 


PPOUT 


STQ* 


HORD 


0825 


P0302 


C80C 




LDA* 


COMPATEN 


0826 


P0303 


0101 




SAZ 


1 


0827 


P030* 


0852 




TCQ 





0828 


P0305 


C807 




LOA* 


PPEXL 


0829 


P0306 


08B* 




LAQ 


A 


0830 


P0307 


1CE5 




JHP* 


(GENPATT) 



GENERATE PATTERN FOR 8, 7* OR 5 LEVEL 
EXIT HITH PATTERN IN A 
SECTION END SNITCH 



PATTERN SHITCH 

LEFT PATTERN DONE 

YES 

LAST PATTERN ♦ 1 

NO 

YES 



RIGHT PATTERN 



**NO SKIP TO GEN2 



COMPLEMENT PATTERN SHITCH 



EXIT HITH PATTERN IN A 



0080* 
00805 
00806 
00807 
00608 
00809 
00810 
00811 
00812 
00813 
0081* 
00815 
00816 
00817 
00818 
00619 
00820 
00821 
00822 
00823 
0082* 
0825 
00826 
00827 
00828 
00829 
00830 
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PTR004 
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0832 


P0308 7F7F 


WORD NUM $7F7F 




0833 


P0309 7F7F 


NUM $7F7F 




0834 


P030A 3EFF 


NUM $3EFF 




0835 


P0308 FFFF 


PPSW NUM -$0 




0836 


P030C 00FF 


PPEXL NUM $FF 




0837 


P030D 0000 


SECTENDSH NUM 





0838 


P030E 0000 


COMPATEN NUM 






DATE! 12/17/74 



LEVEL EXTRACT 
SECTION END SWITCH 
COMPLEMENT PATTERN SWITCH 



00832 
00833 
0083*1 
00835 
00836 
00837 
00838 



0840 






** 






0841 


P030F 


7F7F 


ZZ8 


NUM 


$7F7F 


08 42 


P0310 


7EFF 




NUM 


S7EFF 


0843 


P0311 


7EFF 


Z27 


NUM 


$7EFF 


0844 


P0312 


3F7F 




NUM 


$3F7F 


0845 


P0313 


7BFF 


ZZ5 


NUM 


S78FF 


0846 


P0314 


OFOF 




NUM 


$0FDF 


0847 






»» 






0848 


P0315 


FFOO 


PY8 


NUM 


SFFOO 


0849 


P0316 


41FE 




NUM 


$4iFE 


0850 


P0317 


FEOO 


PY7 


NUM 


SFEOO 


0651 


P0318 


20FE 




NUM 


$20FE 


0852 


P0319 


FBOO 


PY5 


NUM 


SF800 


0853 


P031A 


083E 




NUM 


S083E 



ZIGZAG PATTERN LEVEL GENERATE WORDS 
LEVEL 8 STORE IN WORO AND WORO+1 

STORE IN WORD+2 
LEVEL 7 

LEVEL 5 

PYRAMID PATTERN LEVEL GENERATE WOfeDS 
LEVEL 8 

LEVEL 7 

LEVEL 5 



00840 
00841 
00842 
00843 
00844 
00845 
00846 
00847 
00848 
00849 
00850 
00851 
00852 
00853 
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( ) 





PTR004 
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0855 


P031B 


0000 


GENOZ 


NUM 


$0 


0856 


P031C 


0844 




CLR 


A 


0857 


P0310 


68EF 




STA* 


SECTENOSH 


0858 


P031E 


C810 




LOA* 


GEN03 


0859 


P031F 


0103 




SAZ 


GENOi-*-l 


0860 


P0320 


O80E 




RAO* 


GEN03 


0861 


P0321 


OAFF 




ENA 


-0 


0862 


P0322 


180A 




JMP* 


GENEX 


0863 


P0323 


C80C 


GENOl 


LOA* 


GEN04 


86*1 


P0324 


0115 




SAN 


GEN02-*-l 


0865 


P0325 


0AF5 




ENA 


-10 


0866 


P0326 


68E6 




STA* 


SECTENOSH 


0867 


P0327 


680 7 




STA* 


GEN03 


0868 


P0328 


OAFC 




ENA 


-3 


0869 


P0329 


6806 




STA* 


GEN04 


0870 


P032A 


O805 


GEN02 


RAO* 


GEN04 


0871 


P0328 


0A00 




ENA 


$0 


0872 


P032C 


A80F 


GENEX 


AND* 


PPEXL 


0873 


P032D 


1CEO 




JMP* 


1 GENOZ) 


0874 


P032E 


FFF5 


GEN03 


NUM 


-10 


0875 


P032F 


FFFC 


GEN04 


NUM 


-3 



OATEI 12/17/74 



GENERATE ONES AND ZEROS PATTERN 

ONE CYCLE EQUAL 10 ONES AND 3 ZEROS WORD 



SET END OF CYCLE SNITCH 



EXTRACT LEVELS WANTED 



00855 
00856 
00857 
00858 
00859 
00860 
00861 
00862 
00863 
00864 
00865 
00866 
00867 
00868 
00869 
00870 
00871 
00872 
00873 
00874 
00875 



o 

o 
o 
o 



0877 


P0330 


0000 


GENC9 


NUM 


$0 


0878 


P0331 


0844 




CLR 


A 


0879 


P0332 


680A 




STA* 


SECTENOSH 


0880 


P0333 


C810 




LOA* 


GENC3 


0881 


P0334 


0104 




SAZ 


GENC1-*-! 


0882 


P0335 


D80E 




RAO* 


GENC3 


0883 


P0336 
P0337 


COOO 
00C9 




LOA 


= N$C9 


0884 


P0338 


1809 




JMP* 


GENCEX 


0885 


P0339 


C80B 


GENC1 


LDA* 


GENC4 


0886 


P033A 


0114 




SAN 


GENC2-*-l 


0887 


P033B 


OAFS 




ENA 


-7 


0888 


P033C 


68D0 




STA* 


SECTENDSH 


0889 


P033D 


6806 




STA* 


GENC3 


0890 


P033E 


6806 




STA* 


GENC4 


0891 


P033F 


0805 


GENC2 


RAO* 


GENC4 


0892 


P0340 


0A36 




ENA 


$36 


0893 


P0341 


A8CA 


GENCEX 


AND* 


PPEXL 


0894 


P0342 


ICED 




JMP* 


IGENC9) 



GENERATE C9 AND 36 PATTERN 

ONE CYCLE EQUAL 7 C9S AND 7 36S 



SET END OF CYCLE SWITCH 



EXTRACT LEVELS WANTED 



^ 



0896 P0343 FFF8 GENC3 NUM -$7 



00877 
00878 
00879 
00880 
00881 
00882 
00683 

00884 
00885 
00886 
00887 
00888 
00889 
00890 
00891 
00892 
00893 
00894 



00896 
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PTRQO* 



PACE 28 



DATES 12/17/7* 



0897 P03** FFF8 GENC* NUM -$7 



00897 



0899 






0900 






0901 






0902 


P03*5 


0000 


0903 


P03(*6 


5800 




P03«»7 


FE*7 


090* 


P03*8 


C8FC 


0905 


P03*9 


6808 


0906 


P03*A 


C800 




POS^B 


FEA1 


0907 


P03*C 


0FC8 


0908 


P03*D 


6806 


0909 


P03*F 


COOO 




P03*F 


0000 P 


0910 


P0350 


5*02 


0911 


P0351 


180* 


0912 


P0352 


0*02 


0913 


P0353 


0000 


091* 


P035* 


0000 


0915 


P0355 


C075 


0916 


P0356 


A0*3 


0917 


P0357 


0105 


0918 


P0358 


C06C 


0919 


P0359 


A0*3 


0920 


P035A 


0102 


0921 


P0358 


5800 




P035C 


FCAF 


0922 


P035D 


C800 




P035E 


FCB3 


0923 


P035F 


A076 


092* 


P0360 


6800 




P0361 


FEOC 


0925 


P0362 


010* 


0926 


P0363 


COOO 




P036* 


0278 P 


0927 


P0365 


6800 




P0366 


FC9E 


0928 


P0367 


5800 




P0368 


FE31 


0929 


P0369 


C800 




P036A 


FE02 


0930 


P036B 


1C09 



SEND 



THIS ROUTINE CHECKS FOR ENO OF SECTION STOP. 

CLEAR INTERRUPTS .STOP MOTION 
RETURN ADDRESS 

SECTION NUMBER 



ID 



SNUM 



SENOl 



SEND2 



SEND3 



NUM 





RTJ 


CLR 


LDA* 


SEND 


STA* 


SNUM+1 


LOA 


LCSEC 


ALS 


8 


STA* 


SNUM 


LDA 


= XPTR00* 


RTJ- 


(STOPX) 


JMP* 


SEND1 


NUM 


$*02 


NUM 





NUM 





LDA- 


C0NST*1Q 


AND- 


STJP 


SAZ 


SEND2-*-l 


LDA- 


CONST+1 


AND- 


STJP 


SAZ 


SEN02-*-l 


RTJ 


INPARA 


LDA 


CNTWRD 


ANO- 


C0NST*11 


STA 


INTMODE 


SAZ 


SEND3-*-l 


LOA 


= XCHECK*1 


STA 


RETURN 


RTJ 


SEL 


LOA 


CHREAD 


JNP* 


(SEND) 



CHECK FOR RE-ENTER PARAMETER STOP 



RE-ENTER PARAMETERS 



SELECT OATA INT, START MOTION 



00899 
00900 
00901 
00902 
00903 

0090* 
00905 
00906 

00907 
00908 
00909 

00910 
00911 
00912 
00913 
0091* 
00915 
00916 
00917 
00918 
00919 
00920 
00921 

00922 

00923 
0092* 

00925 
00926 

00927 

00928 

00929 

00930 



r~ 



r 

V. 
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OATEt 12/17/71* 



0932 
0933 
0934 
0935 
0936 
0937 

0938 
0939 

0940 

0941 
0942 
0943 
09 44 
0945 

09 46 

0947 



P036C 
P0360 



P036E 
P036F 
P0370 
P0371 
P0372 
P0373 
P0374 
P0375 
P0376 
P0377 
P0378 
P0379 
P037A 
P0378 
P037C 
P037D 



0050 
0000 



C000 

0000 P 

540 A 

4800 

004F 

6800 

004E 

E091 

C291 

540A 

684F 

COOO 

03A3 P 

E800 

0026 

5408 



INIT 
INIT1 



AOC TE-INIT 
NUM SO 



INITIALIZATION ROUTINE 

THIS ROUTINE IS ONLY USEO AT LOAD TINE 
AND WILL OESTROYEO WHEN THE NEXT TEST IS 
LOADED 



LDA 

RTJ- ICONVI 
STQ IA 

STA IA+1 



'XPTR0Q4 



LDQ- 
LDA- 
RTJ- 
STA» 



TSACTV 
TSFREQ-1,0. 
ICONVI 
HEAOE-1 



LDA =XHEADING 
LOQ HEADCT 
RTJ- t TYPE I 



00932 
00933 
00934 
00935 
00936 
00937 

00938 
00939 

00940 

00941 
00942 
00943 
00944 
00945 

00946 
00947 



o 



0949 

0950 

0951 
0952 

0953 

0954 

0955 

0956 

0957 
0958 
0959 
0960 

0961 
0962 
0963 
0964 
0965 
0966 
0967 
0968 
0969 
0970 



P037E 
P037F 
P0380 
P0381 
P0382 
P0383 
P0384 
P0385 
P0386 
P0387 
P0388 
P0389 
P038A 
P038B 
P038C 
P038D 
P038E 
P038F 
P0390 
P0391 
P0392 
P0393 
P0394 
P0395 
P0396 
P0397 
P0398 
P0399 
P039A 
P039B 



COOO 
0383 
6800 
FC83 
5401 
5800 
FC87 
C800 
FC8C 
6800 
FC7E 
COOO 
0272 
6800 
FEE6 
0842 
4813 
C056 
AOOO 
0C04 
0109 
0822 
A06O 
0115 
0822 
A075 
0111 
D808 
0807 
0806 



INITB 



LDA 

STA 

RTJ- 
RTJ 

LDA INT11 

STA INT1 

LDA 

STA 

CLR Q 
STQ» MCHCOE 
LOA- SMMPAR 
AND -NSC04 



=XINITB 

RETURN 

ICONTROL) 
INPARA 



RETURN TO SMM 
INPUT PARAMETERS 



=XRET 
MR 



INITC 



SAZ 

TRA 

AND- 

SAN 

TRA 

ANO- 

SAN 

RAO» 

RAO» 

RAO» 



INITC+3 

Q 

BIT2 

INITC+2 

Q 

BIT10 

INITOl 

HCHCOE 

HCHCOE 

HCHCDE 



MACHINE TYPE CODE 



SKIP IF 1704/1714 

SAVE MACHINE DEFINITION BITS 

SKIP IF 1774 
RESTORE 

SKIP IF 600 NS NACHINE 



00949 

00950 

00951 
00952 

00953 

00954 

00955 

00956 



PTC2 


00957 


PTC2 


00958 


PTC2 


00959 


PTC2 


00960 


PTC2 


00961 


PTC2 


00962 


PTC2 


00963 


PTC2 


00964 


PTC2 


00965 


PTC2 


00966 


PTC2 


00967 


PTC2 


00968 


PTC2 


00969 


PTC2 


00970 



s "\ 
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0971 P039C C000 
P0390 0019 

0972 P039E 6800 
P039F FC65 

0973 P03A0 5«t01 
097*» P03A1 0000 



PAGE 30 



IDA 



DATE! 12/17/7«» 



/"" 



STA 

RT J- 
MCHCOE NUM 



= X START 

RETURN 

(CONTROL) 



RETURN TO SMM 



MACHINE COOE-0=0<» V 1<» l=7<f,2s600, 3=900 



PTC2 



00971 

00972 

00973 
0097*» 



0976 


P03A2 


0026 


HEADCT 


AOC 


HEAOE-HEADING 


0977 


P03A3 


800A 


HEA0IN6 


NUH 


S8O0A 




0978 


P03Aif 
P03A5 
P03A6 
P03A7 
P03A8 
P03A9 
P03AA 
P03AB 
P03AC 
P03AO 
P03AE 
P03AF 
PO3B0 
P03B1 
P0332 


2050 
5452 
3030 
3<»2C 
2031 
3732 
312F 
3737 
2052 
<»5M 
>*kk5 
522 
5*»*»5 
5354 
2E20 




ALF 




X, PTRO 


0979 


P03B3 


800A 




NUH 




S800A 


0980 


P03B4 
P03B5 
P0336 
P0387 
P03B8 
P0389 
P03BA 
P03BB 
P03BC 


20i»3 
5032 
*»62C 
2056 
*»552 
2E20 
332E 
312D 
3120 




ALF 




X, CP2F 


0981 


P03BD 


800A 




NUM 


S8O0A 




0982 


P03BE 
P03BF 
P03C0 


2 0<»9 
4120 
302 




ALF 


3* IA 




0983 


P03C1 


0000 


IA 


NUM 


$0 




098*1 


P03C2 


0000 




NUM 


SO 




0985 


P03C3 


2C20 




NUM 




S2C20 


0986 


P03C«» 
P03C5 
P03C6 
P03C7 


20*»6 
*»320 
3020 
2020 




ALF 




k, FC = 


0987 


P03C8 


8O0A 


HEAOE 


NUM 


S6O0A 




0988 


P03C9 


03C9 P 


TE 


AOC 


* . 




0989 








END 







1721/77 READER TEST.X 



00976 
00977 
00978 



r~ 



• VER. 3.1-1 X 



00979 
00980 



00981 
00982 



00983 
0098«i 
00985 
00986 



00987 
00988 
00989 



f 



PGM= 03CA ( 



970) 



COM = 0000 ( 



0) 



DAT = 0000 ( 



0) 
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DATE I 12/17/74 



EQUIVALENCES 



.> 



c 



o 



r\ 



o 
o 



DEF.HNE 


NAME 


VALUE 


REFERENCED AT 


LINE 1 


DUMBER 


0000 


I 


00FF 


(000255) 










0036 


CONTRO 


0001 


(000001) 1 


, 0037, 


0683, 


0707, 


0722, 0951, 0973 


0037 


STOPX 


0002 


(000002) , 


, 0038, 
, 0910 


0117, 


0386, 


0438, 0655, 0733 


0038 


TSEXIT 


0003 


(000003) , 


, 0039, 


0410 






0039 


DA TINT 


0004 


(000004) i 


, 0040, 


0041, 


0167 




0040 


CLRINT 


0005 


(000005) 










0041 


JUMPX 


0006 


(000006) 


, 0042, 


0412, 


0470, 


0625 


0042 


GENRAN 


0007 


(000007) 1 


, 0043, 


0096 






00<i3 


TYPEOU 


0008 


(000008) , 


, 0044, 


0045, 


0098, 


0100 


0044 


TTYBZY 


0009 


(000009) 










0045 


HEXASC 


000A 


(000010) , 


» 0046, 


0097, 


0099 




0046 


OVRLAY 


OOOB 


(000011) , 


, 0047 








0047 


RELPOS 


OOOC 


(000012) i 


, 0048 








0048 


HAINL 


000O 


(000013) i 


, 0049, 


0102 






0049 


SETMAS 


0042 


(000066) i 


, 0050 








0050 


STJP 


0043 


(000067) , 


, 0051, 
, 0919 


0052, 


00 95, 


0431^ 0465, 0916 


0051 


LASTVA 


0044 


(000068) 










0052 


LASTAO 


0045 


(000069) 1 


0053 








0053 


LOLCOR 


0047 


(000071) , 


, 0054 








0054 


LDL1C0 


0048 


(000072) 


, 0055 








0055 


INFORM 


0049 


(000073) 


, 0056, 


0717 






0056 


SMMCNT 


0056 


(000086) , 


, 0057, 


0094 






0057 


BIT00 


006B 


(000107) 


, 0058, 


0093 






0058 


BIT0 


006B 


(000107) , 


, 0059 








0059 


BIT1 


006C 


(000108) 


► 0060 








0060 


BIT2 


006O 


(000109) , 


, 0061, 


0963 






0061 


BIT3 


006E 


(000110) 


i 0062 








0062 


BIT4 


006F 


(000111) 


, 0063 








0063 


BIT5 


0070 


(000112) 


, 0064 








0064 


BIT6 


0071 


(000113) , 


, 0065 








0065 


8IT7 


072 


(000114) 


, 0066 








0066 


8IT8 


0073 


(000115) 


i 0067, 


0606, 


0697 




0067 


BIT9 


0074 


(000116) 


, 0068 








0068 


BIT10 


0075 


(000117) 


, 0069, 


0966 






069 


8IT11 


0076 


(000118) 


, 0070 
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0070 


8IT12 


0077 


(000119) , 


> 0071 








0071 


BIT13 


0078 


(000120) 


i 0072 








0072 


biti4 


0079 


(000121) , 


, 0073 








0073 


BIT15 


007A 


(000122) 


, 0074 








0074 


H0000 


007B 


(000123) 


• 0075 








075 


HFFFF 


007C 


(000124) 


i 0076 








0076 


H000F 


0070 


(000125) 


, 0077 








0077 


H00F0 


007E 


(000126) 


i 0078 








0078 


HOFOO 


007F 


(000127) 


, 0079 








0079 


HFOOO 


0080 


(000128) 


, 0080 








080 


HQOFF 


0081 


(000129) 1 


• 0081* 
, 0726 


0227, 


0275, 0330, 0359, 


0648 


0081 


HFFOO 


0082 


(000130) 


i 0082* 


0818 






0082 


HFFFO 


0083 


(000131) , 


, 0083 








0083 


HOFFF 


0084 


(000132) 


• 0084 








0084 


HFFOF 


0085 


(000133) 


i 0085 








0085 


HFOFF 


0086 


(000134) , 


, 0086 








0086 


H7FFF 


0087 


(000135) 1 


, 0087, 


0525 






0087 


H7F00 


0088 


(000136) , 


i 0088 








0088 


H0780 


0089 


(000137) , 


► 0089 








0089 


H007F 


008A 


(000138) 


, 0090 








0090 


H2020 


006B 


(000139) , 


, 0091 








0091 


TSACTV 


0091 


(000145) 


, 0092, 


0941 






0092 


TSFREQ 


0092 


(000146) , 


, 0942 








0093 


CONST 


006B 


(000107) , 


, 0145, 


0149, 


0159, 0178, 0211, 


0300 










r 0402, 


0411, 


0432, 0572, 0590, 


0603 










i 0611, 


0718, 


0756, 0786, 0797, 


0915 










t 0918, 


0923 






009*1 


SMMPAR 


0056 


(000086) , 


, 0959 








0095 


SJPAR 


0043 


(000067) 










0096 


RANDOH 


0007 


(000007) 










0097 


CONVER 


OOOA 


(000010) 










0098 


MESSAG 


0008 


(000008) 










0099 


CONV 


OOOA 


(000010) 


> 0938, 


0943 






0100 


TYPE 


0008 


(000008) 1 


► 0947 








0101 


TEMP 


0004 


(000212) 










0102 


MANUIN 


0000 


(000013) 










0103 


PT 


0001 


(000001) 











r 



r 
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DATE I 12/17/71* 



SYMBOLS 



o 



o 



o 



EF.LINE 


NAME 


AOORE 


0104 


PTRQ04 


0000 


0106 


PARAOR 


0004 


0107 


RETURN 


0005 


0108 


EQUIP 


0006 


0109 


INT1 


0007 


0111 


I NIT I A 


0008 


otia 


RERUN 


OOOA 


0113 


STWOP 


0008 


0115 


INPARA 


OOOC 


0121 


CNTHRO 


0012 


0137 


INT11 


0013 


0138 


DELRO 


0014 


011*0 


INP1 


0016 


OlMt 


START 


0019 


0151 


START1 


0021 


0153 


START2 


0023 


0157 


START3 


0027 


0164 


STARTS 


002F 


0168 


RINT 


0034 


0170 


STARTS 


0036 


0177 


CNTRLA 


0030 


0182 


CNTRL 


0044 


0183 


LC000 


0046 


0186 


LC001 


004A 


0197 


LC001A 


0055 


0203 


LC001B 


005C 


0204 


LCT001 


0050 


0208 


LC002 


0060 


0209 


LCRET 


0062 


0211 


LCO10 


0063 


021*» 


LC011 


0066 


0220 


LC012 


006A 


0229 


LC013 


0077 


0234 


LCQ14 


007D 


0236 


LC015 


0080 


0241 


LC016 


0088 



REFERENCED AT LINE NUMBER 

0116 t 0385, 0409* 0435. 0654* 0732 
0909, 0937 

0181, 0682, 0702, 0721, 0927* 0950 

0972 

0147, 0165, 0383* 0478, 0488, 0569 

0593, 0608, 0752, 0771 

0141, 0144, 0151, 0166, 0954 

0107 

0104 

0112, 0142, 0406, 0415, 0921, 0952 

0106, 0177, 0187, 0223, 0271, 0329 

0358, 0589, 0602, 0922 

0140, 0953 

0665 

0118 

0113, 0971 
0146 
0156 
0153 
0150 

0172, 0174 
0163 

0169, 0173, 0407, 0416 
0179, 0408 

0185, 0202, 0420 
0161* 
0191, 0195 

0186, 0197 
0198 

0199, 0562 
0533 

0212 

0255 

0225 

0230 

0228, 0233 

0243 
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02«»5 


LC020 


008O 1 


, 0213 






0252 


LC021 


0091 , 


, 0247 






0257 


LC040 


0096 1 


. 02<»6 






0264 


LC041 


009A , 


, 0259 






0268 


LC042 


009E 1 


, 0316 






0278 


LC043 


OOAC 1 


, 0273 






0285 


LC044 


00B4 , 


, 0281 






0287 


LC045 


00B7 


> 0277, 


0284 




0292 


LC046 


OOBF , 


. 0302 






0301 


LC047 


OOCC , 


, 0294, 


0297, 


0299 


0304 


LCLV8 


OOCF , 


, 0276, 


0279, 


0298 


0306 


LC080 


OOOO 1 


, 0260 






0313 


LC081 


O0D4 , 


, 0308 






0318 


LC100 


0009 1 


, 0309 






0325 


LC101 


OOOO , 


, 0320 






0337 


LC102 


OOEC i 


, 0332, 


0335 




0343 


LC103 


00F6 n i 


, 0345 






0347 


LC200 


OOFB , 


, 0321 






0354 


LC201 


OOFF , 


, 0349 






0366 


LC202 


010E 1 


, 0361, 


0364 




0372 


LC203 


0118 1 


, 0374 






0376 


LC800 


0110 , 


, 0350 






0380 


LC801 


0121 1 


, 0378 






0389 


PASSCT 


012E i 


, 0384 






0391 


LC802 


012F , 


, 0387 






0393 


LC802A 


0131 , 


, 0397 






0395 


LT802 


0134 i 


, 0392, 


0394 




0398 


LC802B 


0138 


, 0396 






0402 


ET 


013C 1 


, 0400 






0406 


ET5 


0140 , 


, 0404 






0408 


ET6 


0144 


» 0405 






0409 


ET1 


0146 1 


, 0401 






0411 


ET2 


0149 








0415 


ET3 


0140 1 


, 0413 






0416 


ET4 


014F , 


, 0414 






0418 


LCEND 


0151 1 


, 0379 






0422 


ERROR 


0155 


. 0201, 
, 0584, 


0419, 
0635 


0429, 0448, 0541, 0561 


0437 


CMER1 


0166 - 


, 0433 






0440 


10 


0169 


r 0446, 


0539, 


0540 


0441 


SEER 


016A 1 


, 0222, 
, 0428 


0270, 


0328, 0357, 0423, 0427 


0442 


RETAOR 


016B 1 


, 0430, 


0434, 


0436 


0443 


CHFRAM 


016C , 


, 0499, 


0502, 


0631 


0444 


CHREAO 


0160 , 


, 0501, 


0514, 


0518, 0531, 0633, 0929 


0445 


El 


016E 


, 0439 






0450 


RESTHD 


0173 1 


• 0240, 


0291, 


0460, 0507 


0461 


LEVELC 


0182 


, 0237, 


0288, 


0452, 0456 


0463 


JUMP 


0183 , 


, 0399, 


0403, 


0467, 0468, 0472, 0473 


0469 


JUMP1 


0189 ■ 


, 0464, 


0466 




0473 


JUMP2 


018D , 


, 0471 







r' 
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0475 


JUMP3 


018E 


0477 


CLR 


018F 


0487 


SEL 


019A 


0498 


CHECKR 


01A6 


0504 


CHOI 


01AD 


0510 


CH02 


01B3 


0522 


CH03 


01C0 


0535 


CH04 


01CE 


0542 


CH05 


0105 


0543 


CH1STW 


01D6 


0544 


SAVE 


01D7 


0545 


SAVECH 


0108 


0547 


SPACEO 


0109 


0549 


SPOV 


01DB 


0550 


SPOV1 


01DC 


0557 


SP0V2 


01E5 


0560 


SPOVER 


01E8 


0564 


LCSEC 


01ED 


0565 


LCCNT 


01EE 


0566 


CTLV 


01EF 


0568 


STMOTI 


01F0 


0569 


STM1 


01F1 


0575 


STM2 


01F8 


0579 


SMREJ1 


01FC 


0582 


SHREJ2 


01FF 


0584 


SHREJ3 


0201 


0588 


STATUS 


0204 


0602 


ST1 


0216 


0608 


ST2 


0210 


0620 


ST3 


022A 


0630 


ST4 


0233 


0637 


ERCMT 


0230 


0638 


INTMOO 


023E 


0639 


INTCH 


023F 


0640 


CHCH 


0240 


0642 


CTER 


0241 


0643 


ERR4 


0242 


0644 


ERR3 


0243 


0645 


ERR2 


0244 


0646 


ERR1 


0245 


0658 


SECERR 


0252 


0659 


RSTATU 


0253 


0660 


EQCOOE 


0254 


0661 


RCHAR 


0255 


0664 


DEL 


0257 


0668 


DELI 


025C 


0675 


OELM 


0262 
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0469 

0382* 0424, 0485. 0536, 0731, 0903 

0447, 0496, 0744, 0928 

021*2, 0301, 0344, 0373, 0508 

0542 

0503 

0524 

0513, 0521, 0529 

0505, 0510, 0557 

05 35, 0537 

0515, 0530 

0238, 0289, 0338, 0367, 0381, 0556 



0556 

0555 

0552 

0220, 0268, 0326, 0355, 0380, 0516 

0551, 0906 

0425 

0549, 0553, 0554 

0182, 0574, 0577 
0585 

0571 
0576 
0580 

0183, 0208, 0500, 0550, 0601, 0628 

0592, 0626, 0656 

0618 

0612 

0619 

0607, 0614, 0616, 0698, 0703, 0705 

0479, 0489, 0591, 0924 

0599 

0623 

0643, 0644, 0645, 0646, 0649, 0653 



0621 

0609 

0647, 0650, 0725 

0610, 0632 

0651 

0622, 0627 

0605, 0673 

0672 

0393, 0613, 0668, 0669 
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068* 


MCHPTR 


0260 


0689 


RET 


0272 


0690 


MR 


0273 


0691 


DELCT 


027% 


0693 


RANADO 


0275 


069* 


RAN 


0276 


0696 


CHECK 


0277 


0699 


CHECKA 


027A 


0701 


CHECK1 


027C 


071«* 


CH 


028B 


0717 


CHECKS 


028E 


0720 


CHECK2 


0291 


0723 


CHA 


0296 


0736 


SE 


02A5 


0737 


STAT 


02A6 


0738 


FRAME 


02A7 


0739 


EXIT 


02A8 


07«»0 


INFLG 


02A9 


07«»1 


ERC 


02AA 


07*»2 


CH1A 


02AB 


7«»«» 


CHI 


02AO 


07J»9 


INTFLG 


02B0 


0750 


INPROC 


02B1 


0759 


INTENA 


02BB 


0762 


INTENB 


02BE 


0767 


INTEN1 


02C* 


0768 


INTEN2 


02C6 


0771 


INPR1 


02C9 


0779 


INPR2 


020% 


0785 


INPR3 


02OB 


079«f 


INPR* 


02E* 


0796 


INPR5 


02E6 


080*1 


GENPAT 


02EO 


0813 


GEN1 


02F6 


0816 


GEN2 


02F9 


082* 


PPOUT 


0301 


0832 


HORD 


0308 


0835 


PPSW 


030B 


0836 


PPEXL 


030C 


0837 


SECTEN 


0300 


0838 


COMPAT 


030E 


08*1 


ZZ8 


030F 


08*3 


ZZ7 


0311 


08*5 


ZZ5 


0313 


08%8 


PY8 


0315 


0850 


PY7 


0317 


0852 


PY5 


0319 



0676 
0955 

0681, 0956 
Q667» 0669, 0670 

0693 

0180, 0598, 0716, 07%5, 0926 

0701 

0700 
0720 

0713, 0719 

0728 

0709, 0755, 0772, 0779, 0785 

0600, 0710, 0791 

0751, 0766, 0801 

0595, 0699, 072%, 07*3, 0796, 0800 

0712, 071%, 0727, 0730, 0769, 0777 

0783, 0795 

073% 

016%, 0759 

0168, 0762, 0802 

0757 

0760 

0765 

0761 

0758 

0775 

0781 

0787 

0770, 0778, 078%, 0793 

02*1, 0292, 0830 

0811 

0809 

0812, 0819 

0*53* 0*5*, 0*57, 0807, 0815, 0820 

0821, 082* 

0*59, 0808, 081%, 0822 

0236, 0287, 0337, 0366, 0828, 0672 

0893 

0293, 050*, 0806, 0823, 0857, 0866 

0879, 0888 

0216, 025*, 0266, 0296, 0315, 0825 

0226 
0231 
0234 
027* 
0282 
0285 



r 
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.J 



0855 


GENOZ 


0318 


0863 


GEN01 


0323 


0870 


GEN02 


032A 


0872 


GENEX 


032C 


0874 


GEN03 


032E 


0875 


GEN04 


032F 


0877 


GENC9 


0330 


0885 


GENC1 


0339 


0891 


GENC2 


033F 


0893 


GENCEX 


0341 


0896 


GENC3 


03^3 


0897 


GENC4 


0344 


0902 


SEND 


0345 


0913 


SNUM 


0353 


0915 


SENOl 


0355 


0922 


SEN02 


0350 


0928 


SEND3 


0367 


0932 


INIT 


036C 


0933 


INIT1 


0360 


0952 


INIT8 


0383 


0968 


INITC 


0399 


0974 


HCHCOE 


03A1 


0976 


HEADGT 


03A2 


0977 


HEAOIN 


03 A3 


0983 


IA 


03C1 


0987 


HEADE 


03C8 


0988 


TE 


03C9 



PAGE 37 




DATE! 12 


, 0343, 


0873 






• 0859 








, 0864 








, 0862 








• 0342, 


0858, 


0860* 


0867 


, 0340, 


0863, 


0869, 


0870 


, 0372, 


0894 






• 0881 








, 0886 








• 0884 








• 0369, 


0880, 


0882, 


0889 


, 0371, 


0885, 


0890, 


0891 


, 0532, 


0904, 


0930 




• 0905, 


0908 






, 0911 








• 0917, 


0920 






,0925 








, 0932 








• 0111 








, 0949 








• 0961, 


0964, 


0967 




• 0958, 


0968, 


0969, 


0970 


, 0946 








t 0945, 


0976 






• 0939, 


0940 






* 0944, 


0976 






, 0932 
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DATEI 


12/17/7 


4 


'•• A L 


P H A 


3 E T I 


C A L 


SORT 


F 


S Y M B 


L S 


♦ »» 




BITO 


0058 


BIT 


0057 


BIT1 


0059 


BIT10 


0068 


BIT11 


0069 


BIT12 


0070 


BIT13 


0071 


BIT14 


0072 


BIT15 


0073 


BIT2 


0060 


BIT3 


0061 


8IT4 


0062 


BIT5 


0063 


8IT6 


0064 


BIT7 


0065 


BIT8 


0066 


BIT9 


0067 


CH 


0714 


CHOI 


0504 


CH02 


0510 


CH03 


0522 


CH05 


0542 


CHI 


0744 


CH1A 


0742 


CH1STN 


0543 


CHA 


0723 


CHCH 


0640 


CHECK 


0696 


CHECK1 


0701 


CHECK2 


0720 


CHECKA 


0699 


CHECKB 


0717 


CHECKR 


0498 


CHFRAM 


0443 


CH04 


0535 


CHREAD 


0444 


CLR 


0477 


CLRINT 


0040 


CMER1 


0437 


CNTRL 


0182 


CNTRLA 


0177 


CNTWRO 


0121 


COMPAT 


0838 


CONST 


0093 


CONTRO 


0036 


CONV 


0099 


CONVER 


0097 


CTER 


0642 


CTLV 


0566 


OATINT 


0039 


DEL 


0664 


DELI 


0668 


DELCT 


0691 


DELM 


0675 


OELRD 


0138 


El 


0445 


EQCODE 


0660 


EQUIP 


0108 


ERC 


0741 


ERCNT 


0637 


ERRi 


06<«6 


ERR2 


0645 


ERR3 


0644 


ERR4 . 


0643 


ERROR 


0422 


ET 


0402 


ET1 


0489 


ET2 


0411 


ET3 


0415 


ET4 


0416 


ET5 


0406 


ET6 


0408 


EXIT 


0739 


FRAME 


0738 


GEN1 


0613 


GEN2 


0816 


6ENC1 


0885 


GENC2 


0891 


GENC3 


0896 


GENC4 


0897 


GENC9 


0877 


GENCEX 


0893 


GENEX 


0672 


GENOl 


0863 


GEN02 


0870 


GEN03 


0874 


GEN04 


0875 


GENOZ 


0855 


GENPAT 


0804 


GENRAN 


0042 


HOO00 


0074 


H000F 


0076 


H007F 


0089 


H00F0 


0077 


HOOFF 


0080 


H0780 


0088 


H0F00 


0078 


HOFFF 


0083 


H2020 


0090 


H7F0O 


0087 


H7FFF 


0086 


HEAOCT 


0976 


HEADE 


0987 


HEADIN 


0977 


HEXASC 


0045 


HF000 


0079 


HFOFF 


0085 


HFFOO 


0081 


HFFOF 


0084 


HFFFO 


0062 


HFFFF 


0075 


I 


0000 


IA 


0983 


ID 


0440 


INFLG 


0740 


INFORM 


055 


INIT 


0932 


INIT1 


0933 


INITB 


0952 


INITC 


0968 


INITIA 


0111 


INP1 


0140 


INPARA 


0115 


INPR1 


0771 


INPR2 


0779 


INPR3 


0785 


INPR4 


0794 


INPR5 


0796 


INPROC 


0750 


INT1 


0109 


INTli 


0137 


INTCH 


0639 


INTEN1 


0767 


INTEN2 


0766 


INTENA 


0759 


INTENB 


762 


IMTFLG 


0749 


INTMOD 


0638 


JUMP 


0463 


JUMP1 


0469 


JUMP2 


0473 


JUMP3 


0475 


JUMPX 


0041 


LASTAD 


0052 


LASTVA 


0051 


LCOOO 
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